Zitat von
Antigo:
Hi,
Ich habe eine Instanz meines Objektes und möchte dies im Prinzip leeren, weil ich die Properties aus einer Datei lesen möchte.
Ich habe versucht über instanz.destroy und danach wieder instanz:=objekt.create das ganze zu lösen, aber dann bekomme ich eine
AV und bei "Einzelanweisungen" stehen im Assembler Code jede Menge >?<.
Hat jemand einen Tipp für mich wie ich das am besten löse? Ich habe in der destroy prozedur selbst nichts stehen. Und die Klasse ist auch nicht von TOBject abgeleitet( fragt nicht warum, ich wusste nicht wozu das gut sein sollte).
Es gibt 3 Möglichkeiten:
1.) Aufruf von Instanz.Create
zu Beachten: es wird kein neues Objekt erzeugt, sondern die Create Methode wie eine "normale Methode" ausgeführt.
http://www.dsdt.info/insider/sprache/konstruktor.php
2.) dein Objekt erhält die Methode
Clear. In clear setzt du einfach alles auf 0, False oder ''.
die Methode sollte virtuell sein, falls du mal von deinem Objekt ableiten möchtest
3.) du benutzt
RTTI um published Properties rückzusetzen
Delphi-Quellcode:
uses TypInfo;
procedure ClearObjectProperties(obj:TObject; list:array of string);
var
i : integer;
begin
for i:=Low(list) to High(list) do
begin
case PropType(obj, list[i]) of
tkString, tkLString, tkWString:
SetStrProp(obj, list[i], '');
tkInteger:
SetOrdProp(obj, list[i], 0);
tkFloat:
SetFloatProp(obj, list[i], 0.0);
else
Assert(False, 'unsupported Property');
end;
end;
end;