Bestimmte Stellen aus String List lesen

[hboy]

procedure readinifile(dateiname: string);
begin
assignfile(F, dateiname);
reset(F);
while not EOF(F) do
begin
if not EOF(F) then readln(F,a) else abort;
if not EOF(F) then readln(F,b) else abort;
if not EOF(F) then readln(F,c) else abort;
setlength(liste, length(liste) +1 );
liste[high(liste)].deutsch := b;
liste[high(liste)].englisch := c;
end;
closefile(F);
end;


achja

readinifile(ExtractFilePath(Application.Exename)+' d-e.ini'); wenns im selben Verzeichnis is