Bestimmte Stellen aus String List lesen

[PhöniX]

Delphi-Quellcode:

 a,b,c: string;
  liste: Array of TEintrag;
  Gesamt: Integer;
  Richtig: Integer;
  Falsch: Integer;

implementation

{$R *.DFM}
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);

ES GEHT IMMER NOCH NICHT