Delphi-Quellcode:
procedure readinifile(dateiname: string);
begin
assignfile(F, dateiname);
reset(F);
while not EOF(F) do
begin
if not EOF(F) then readln(a) else abort;
if not EOF(F) then readln(b) else abort;
if not EOF(F) then readln(c) else abort;
setlength(liste, length(liste) +1 );
liste[high(liste)].deutsch := b;
liste[high(liste)].englisch := c;
end;
closefile(F);
end;
end;//<- '.' erwartet aber ';' gefunden
Wenn ich Punkt hinmach ist die gesamte
Unit abgeschlossen und die proceduren danach werden nicht mehr gemacht..