Forum: Sonstige Fragen zu Delphi
Delphi
by ichbins,
16. Nov 2005
Geh einfach jede Zeile durch:
var
s:stringlist;
i,j:integer;
rest:string;
klammerauf:boolean;
result:string;
results:tstringlist;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by ichbins,
16. Nov 2005
Du kannst die Datei auch in einer TStringlist laden:
var
s:tstringlist;
begin
s:=tstringlist.create;
s.loadfromfile(DATEINAME);
s.savetofile(DATEINAME);
s.count -> Zeilenzahl
Forum: Sonstige Fragen zu Delphi
Delphi
by ichbins,
16. Nov 2005
Du kannst Dateien jeder Endung als Textdatei verwenden:
var
t:textfile;
s:string;
begin
assignfile(t,'C:\test.log'); //Der Textfile den Dateinamen zuweisen
reset(t); //Die Textfile öffnen
readln(t,s); //Eine Zeile lesen