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/)
-   -   Delphi Daten in einer Klassenhierachie ablegen (https://www.delphipraxis.net/79734-daten-einer-klassenhierachie-ablegen.html)

xZise 2. Nov 2006 21:37

Re: Daten in einer Klassenhierachie ablegen
 
Zitat:

Zitat von mkinzler
Delphi-Quellcode:
FLeuchten[idx-1] := vLeuchte;

Nein! Wenn er in das letzte Item speichern möchte, dann brauch er das nicht!

PS: Der Fehler tritt nach dem setzen des Zielortes... Hmmm...

[edit]Ich habe so folgendermaßen editiert:
Delphi-Quellcode:
procedure TStromkreis.Add_Leuchte(vAdresse : integer; vZielort: string);
var idx : integer;
    vLeuchte : TLeuchte;
begin
  idx := get_Anzahl_Leuchten;
  // = Length(FLeuchten)! Vorher war es High(FLeuchten), und die hast es hier im ein erhöht
  // Übrigends: High gibt nicht die Anzahl zurück :D sondern Length :P
  SetLength(FLeuchten, idx + 1);

  // Direktes Create
  FLeuchten[idx] := TLeuchte.create;

  FLeuchten[idx].Adresse := vAdresse;
  FLeuchten[idx].Zielort := vZielort;

  //Ausgabe einer Testnachricht
  Showmessage('');
end;
Nun er scheint die Nachricht einmal, und beim zweitenmal, wirft er da die Exception?!
Das ist seltsam ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:04 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