Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Listenindex Überschreitet das Maximum (3) (https://www.delphipraxis.net/152551-listenindex-ueberschreitet-das-maximum-3-a.html)

Demon666 26. Jun 2010 21:38

AW: Listenindex Überschreitet das Maximum (3)
 
nein, aber ich hab ne prozedur in der FormOptionen geschlossen wird:
Delphi-Quellcode:
procedure TFormOptionen.BtOKClick(Sender: TObject);
var save: Tstringlist; //hier wird gespeichert. reihenfolge: checkbox, buttonhöhe,buttonbreite,Radiogroup"Symbol",RadioGroup"SymbolPosition";
begin
  save:=tstringlist.create;
  if cbleiste.checked then
    save.add('t')
  else
    save.Add('f'); //wenn die checkbox ein häckchen hat ist die erste zeile von save=t ansonsten ist sie f;


  if edbthoehe.text='' then
     edbthoehe.value:=0;

  if edbtbreite.text='' then
    edbtbreite.Value:=0;

  save.Add(inttostr(edbthoehe.Value)); //speicert die buttonhöhe;
  save.Add(inttostr(edbtbreite.value)); //speichert die buttonbreite;
  save.Add(inttostr(RGSymbol.ItemIndex));
  save.Add(inttostr(RGSymbolPosition.ItemIndex));
  save.SaveToFile('save.txt');
  FormOptionen.Close;
end;

Matze 26. Jun 2010 21:44

AW: Listenindex Überschreitet das Maximum (3)
 
Hm, also so kann ich dir leider nicht helfen, sorry.

Aber wo ich deinen Code nochmal ansehe, entstehen u.U. Speicherlecks (sog. Memory Leaks).
Du erzeugst eine StringList und gibst dessen Speicher nicht mehr frei.
Richtig macht man das so (bei allen Objekten, die du mit ".Create" erstellst):

Delphi-Quellcode:
save := TStringlist.Create;
try
  // hier dein Code, in dem du auf "save" zugreifst
finally
  // Speicher freigeben
  FreeAndNil(save); // oder: save.Free;
end;

SirThornberry 26. Jun 2010 21:56

AW: Listenindex Überschreitet das Maximum (3)
 
Mache bitte für den neuen Fehler ein eigenes Thema auf. Denn der neue Fehler hat rein gar nichts mit dem vorherigen Fehler zu tun.
Im neuen Thema kannst du ja auf den Quelltext von diesem Beitrag verlinken.
Aber so bringt es für die Zukunft recht wenig weil andere mit gleichem Problem die zweite Frage innerhalb dieser ersten Frage kaum finden werden.

himitsu 27. Jun 2010 06:40

AW: Listenindex Überschreitet das Maximum (3)
 
Blos um das nochmal zu sagen.
Debuggen ist eine Wunderwaffe.
Damit bekommt man auch gleich mit raus in welcher Zeile der Fehler auftritt, was die Fehlersuche stark vereinfacht.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz