Registriert seit: 16. Jan 2004
364 Beiträge
|
Re: Bestimmte Stellen aus String List lesen
31. Jan 2004, 23:56
Delphi-Quellcode:
procedure readinifile(dateiname: string);
begin
assignfile(F, dateiname);
reset(F);
while not EOF(F) do
begin
try
setlength(liste, length(liste) +1 );
readln(F,a);
readln(F,a);
liste[high(liste)].deutsch := a;
readln(F,a);
liste[high(liste)].englisch := a;
except
setlength(liste, length(liste) -1 );
end;
end;
closefile(F);
end;
[edit=thomasdrewermann]Delphi-Tags ergänzt Mfg, thomasdrewermann[/edit]
|
|
Zitat
|