Objektinstanz "resetten"?

[shmia]

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;