hej hvad er der galt her?? jeg vil have den skal tjecke hver linie om linien er af TAL
procedure TForm1.Button1Click(Sender: TObject); var sl: TStringlist; i,n,error: integer; tmp:String; begin sl := TStringlist.Create; sl.LoadFromFile('c:\mads.txt'); for i:= sl.Count-1 downto 0 do if val(sl[i],n,error) = 0 then begin listbox1.Items.Add(sl[i]); end; end; end.
fejlen er
[Error] Unit1.pas(36): Incompatible types [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
sl := TStringlist.Create; sl.LoadFromFile('c:\mads.txt'); for i:= sl.Count-1 downto 0 do begin val(sl[i],n,error); if error = 0 then listbox1.Items.Add(sl[i]); end;
sl := TStringlist.Create; sl.LoadFromFile('c:\mads.txt'); for i := 0 to sl.Count-1 do begin if kuntal(sl.strings[I]) then listbox1.Items.Add(sl.strings[I]); end
function IsStrANumber(const S: String): Boolean; var P:PChar; begin P:=PChar(S); result:=False; while P^ <> #0 do begin if not (P^ in ['0'..'9']) then exit; inc(P); end; result:=True; end;
procedure TForm1.Button1Click(Sender: TObject); var sl : TStringlist; i: integer; begin sl := TStringlist.Create; sl.LoadFromFile('C:\mads.txt'); for i:= sl.Count-1 downto 0 do
hey stoney fedt script.. takker.. det ville være kanont hvis du gad give en lille tekst om hvad
functionen gør
altså f.eks
hvad while P^ <> #0
det betyder og er det en
REGEX du laver ['0'..'9']
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
