Bestimmte Stellen aus String List lesen

[PhöniX]

Wenn ichs ohne Debugger starte läd er 5 Sekunden und dann ist nichts mehr...
Er findet den Fehler immer noch:

Delphi-Quellcode:

procedure readinifile(dateiname: string);
begin
  assignfile(F, 'd-e.ini');
  reset(F);
  while not EOF(F) do
  begin
    readln(a);//<--------------Hier liegt der Fehler
    setlength(liste, length(liste) +1 );
    readln(a);
    liste[high(liste)].deutsch := a;
    readln(a);
    liste[high(liste)].englisch := a;
  end;
  closefile(F);

end;

Vielleicht ist auch irgendwas an den Komponenten falsch... :gruebel:

[Touchdown]

Ich an deiner Stelle würde mal meine grauen Zellen aktivieren und mal selber eine Lösung erarbeiten.

Als kleinen Denkanstoß könntest du versuchen diese Frage zu beantworten:

Ist a <> f ? :mrgreen:

[PhöniX]

Natürlich ist a <> f...
Aber ich hab sowas noch nie gemacht und weiß daher auch nicht wo der FEhler liegt
(Was muss denn a immer sein)(Bei mir ist a: String[255];)

[Touchdown]

Wenn dir bekannt ist, daß a <> f ist, warum programmierst du dann nicht auch so.

Edit: Wenn man von programmieren überhaupt sprechen kann, wenn man simple Fehler in einem Copy-Paste Quellcode nicht erkennen kann

[PhöniX]

:wiejetzt: Ich hab da keine Ahnung von...Kann mir nicht einer sagen wies geht?? :wiejetzt:

[hboy]

ich hab den string in seiner Länge festgelegt weil sonst probleme bei der Objektorientierung auftreten, dann wenn man versucht das Objekt zu freeen. nimm halt mal sting;

[PhöniX]

sting?? wohin damit?

[hboy]

var
a,b,c: string;
[...]
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;

[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 :!: :!: :wall: :wall: :wall:

[hboy]

was? gibts immer noch den Fehler beim Laden?