Forum: Sonstige Fragen zu Delphi
Delphi
by daywalker9,
11. Jul 2010
Ansonsten bastel dir eine Assign Methode, um alle Eigenschaften in das Level zu kopieren. Dann kannst du diese Klassen so freigeben. Beispiel:
level:=TLevel.create;
level.Assign(level);
procedure TLevel.Assign(ASOurce:TPersistent);
begin if (ASource is TLevel) then
Self.Name := (ASOurce as TLevel).Name; //für alle attribute machen
Forum: Sonstige Fragen zu Delphi
Delphi
by daywalker9,
11. Jul 2010
Ging ja auch nur um das assigned()..
Forum: Sonstige Fragen zu Delphi
Delphi
by daywalker9,
11. Jul 2010
Free prüft auch ob die Klasse <> NIL ist