EStringListError Hilfe

[Volker Z.]

Hallo,

Delphi-Quellcode:

procedure mach_mathe;
var i:Integer;
begin
Zerlegen;
i2:=Bloecke.Count; // Count gibt Dir die Anzahl der Einträge in der Stringliste, also 0..N
for i:=0 to bloecke.Count do
begin
  aktuellezahl:=strtoint(Bloecke[i2]); // Der Index einer Stringliste liegt immer zwischen 0 und Count - 1
  benenne;
  translate;
  erweitere;
  i2:=i2 -1;
  Bloecke.Free;
  nummern.Free;
  translated.Free;
end;
end;

Gruß

[Bjoerk]

Bloecke.Free innerhalb der Schleife ist auch ganz groß.

Und, was erzeugt wird, muß auch wieder freigegeben werden.
Und Verwende zum löschen einer Stringlist die Methode Clear;
Und, und, und..

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bloecke:= TStringList.Create;
  nummern:= TStringList.Create;
  translated:= TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bloecke.Free;
  nummern.Free;
  translated.Free;
end;

[Bummi]

CROSSPOST http://www.entwickler-ecke.de/viewtopic.php?t=110889