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).


schonmal danke im vorraus

Hallo,

instanz.Free gibt das Objekt frei.
instanz.Destroy sollte nie direkt aufgerufen werden. (siehe OLH)

Schreib dir doch eine "Reset"-Prozedur, die alle Properties leert.

Zitat von toms:

Hallo,

instanz.Free gibt das Objekt frei.
instanz.Destroy sollte nie direkt aufgerufen werden. (siehe OLH)

leider der selbe Fehler

Zitat:

Schreib dir doch eine "Reset"-Prozedur, die alle Properties leert.

warum bin ich da nicht selbst drauf gekommen?

dankeschön

Und so:

markieren

Delphi-Quellcode:

if Instanz <> nil then
  FreeAndNil(Instanz);

MfG
freak

Zitat von Antigo:

Und die Klasse ist auch nicht von TOBject abgeleitet.

Das glaube ich dir nicht . Jede Klasse ist mindestens von TObject abgeleitet,
 TMyObject = class und
 TMyObject = class(TObject) sind ein und dasselbe.

Wenn dann so:

markieren

Delphi-Quellcode:

var
  tmpClass : TClass
begin
  tmpClass:=Self.ClassType;
  Self.Free;
  Self:=tmpClass.Create;
end;

Aber ungetestet Ist nur so eine Vermutung.

Zitat von freak4fun:

markieren

Delphi-Quellcode:

if Instanz <> nil then
  FreeAndNil(Instanz);

Die Abfrage auf NIL ist überflüssig FreeAndNil ruft intern die Methode Object.Free auf, welche überprüft, ob die Instanz ungleich nil ist

......

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

zusammenfalten · markieren

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;