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'
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.
