Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
2. Nov 2006
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...
Ich habe so folgendermaßen editiert:
procedure TStromkreis.Add_Leuchte(vAdresse : integer; vZielort: string);
var idx : integer;
vLeuchte : TLeuchte;
begin
idx := get_Anzahl_Leuchten;
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
28. Okt 2006
Dast geht auch anders:
{ * Variante 1 = Direkte Instanzierung + with * }
procedure TGeraet.Add_Einschub(vTyp : integer; vAdresse : integer);
var idx : integer;
begin
idx := get_Anzahl_Einschuebe;
SetLength(FEinschuebe, idx + 1);
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
27. Okt 2006
Also ich hätte erstmal einen Autotyp gemacht:
type
TCar = record
doors : array of TDoor;
tires : array of TTire;
end;
Dann den Türentyp und Reifentyp:
type