Object in Variable sichern?

[moelski]

Moin !

Ich stehe da mal wieder vor einem kleinen Object bzw. Klassen Problem

Also wir haben da ein paar Klassen für Geräte. die nennen sich dann z.B.
TLVSpectraII und TLVPowerPeak.

Je nachdem welches Gerät wir nun gerade bedienen müssen wir ein Object von der Klasse erzeugen.
Bis hierhin noch einfach ...
SpectraII := TLVSpectraII.Create(Self);

Nun würde ich aber gerne irgendwie das zuletzt erzeugte Object sichern. Weil wenn ich ein anderes Gerät lade, dann möchte ich in dieser Variable nachsehen welches Object aktuell ist und dieses dann löschen. Danach kann dann das neue Object angelegt werden.

Ich hatte es hiermit versucht:
LastObject := SpectraII;

Wobei folgendes definiert ist: LastObject : TObject;

Aber so scheint es nicht wirklich zu funktionieren. Denn ein LastObject.Destroy bewirkt gonix.


Kann mir da jemand einen Tip geben?

Greetz Dominik

[rwachtel]

Ja, verwende niemals, nie Destroy direkt, sondern Free.

[shmia]

Zitat von moelski:

Wobei folgendes definiert ist: LastObject : TObject;

Deine Klassen sind von TComponent abgeleitet ?

Delphi-Quellcode:

var
LastObject : TComponent; // besser man nimmt den gemeinsamen Vorfahren aals Datentyp

Oder sind es visuelle Komponenten (=Steuerelemente)?
Dann wäre TControl die passende Klasse.

[moelski]

Moin !

Zitat:

Ja, verwende niemals, nie Destroy direkt, sondern Free.

Ok, aber das ist ja noch keine Antwort auf meine Frage

Zitat:

Deine Klassen sind von TComponent abgeleitet ?

Ja erstmal ist das so: TLVSpectraII = class(TObject)

Zitat:

Oder sind es visuelle Komponenten (=Steuerelemente)?

Nein sind keine visuelen Komponenten.

[shmia]

Zitat von moelski:

Ja erstmal ist das so: TLVSpectraII = class(TObject)

Ich würde empfehlen:
1.) von TPersistent statt TObject abzuleiten (die Vorteile merkst du aber erst mit zunehmender Erfahrung)
2.) eine gemeinsame Basisklasse für alle Geräte schaffen

Delphi-Quellcode:

TLVDevice = class(TPersistent)
end;
TLVSpectraII = class(TLVDevice)

3.) überlegen, welche Eigenschaften um Methoden allen Klassen gemeinsam sind
um diese in die Basisklasse zu verlagern
z.B. könnte jedes Gerät einen Gerätenamen haben (property DeviceName)
oder jedes Gerät muss geöffnet und geschlossen werden

Delphi-Quellcode:

procedure Open; virtual;
procedure Close; virtual;

[rwachtel]

Zitat von moelski:

[...] LastObject := SpectraII;

Wobei folgendes definiert ist: LastObject : TObject;

Aber so scheint es nicht wirklich zu funktionieren. Denn ein LastObject.Destroy bewirkt gonix.[...]

Wie hast Du das festgestellt? Folgendes funktioniert:

Delphi-Quellcode:

  TKlasseA = class(TObject)
  public
    destructor Destroy; override;
  end;

  TKlasseB = class(TObject)
  public
    destructor Destroy; override;
  end;

implementation

destructor TKlasseA.Destroy;
begin
  ShowMessage('Klasse A sagt Bye-bye...');
  inherited;
end;

destructor TKlasseB.Destroy;
begin
  ShowMessage('Klasse B sagt Bye-bye...');
  inherited;
end;

[...]
var
  KlasseA: TKlasseA;
  Klasse: TObject;
begin
  KlasseA := TKlasseA.Create;
  Klasse := KlasseA;
  Klasse.Free;
end;

[moelski]

Moin !

@shmia:
Danke für den Tip. Das kann man machen. So in etwa wäre es bei uns der nächste Schritt gewesen. Aber das kann man ja auch vorziehen.

Zitat:

überlegen, welche Eigenschaften um Methoden allen Klassen gemeinsam sind

Eigentlich haben die garnix gemein. Jede Klasse hat ihre speziellen Funktionen. Gemein ist nur Create, Free, etc ... Aber das ist ja soweiso durch die Vererbung in der Klasse vorhanden.

Die Sache mit Open und Close würde sicher funktionieren. Ist aber mit Mehraufwand verbunden, der irgendwann überflüssig wird. Wir wollen irgendwann mehrere Geräte parallel bedienen. Dazu muss ich mir dann eh irgendwo merken welche Objekte existieren.

Also mein Grundproblem besteht nach wie vor. Wie kann ich ein Object in einer Varible sichern? Ich denke das geht mit einem Zeiger. Weiss aber nicht wie ...

@rwachtel:

Zitat:

Wie hast Du das festgestellt?

Nuja, ich habe folgendes probiert:

Delphi-Quellcode:

  SpectraII := TLVSpectraII.Create(Self);
  LastObject := SpectraII;
  LastObject.free;

Danach habe ich eine Datei geladen die das Objekt SpectraII verwendet. Aber da ich keine Exception bekommen habe muss es immer noch existent gewesen sein.

[Muetze1]

Zitat von moelski:

Danach habe ich eine Datei geladen die das Objekt SpectraII verwendet. Aber da ich keine Exception bekommen habe muss es immer noch existent gewesen sein.

Nein, das bedeutet nur, das der Speicherbereich noch nicht erneut verwendet wird bzw. der Inhalt sich noch nicht geändert hat und du somit pures Glück hattest, das es zu keinem Absturz kam.

[moelski]

Aha, also funktioniert das so wie ich es gemacht habe?

Also erst ...

Delphi-Quellcode:

var
  LastObject: TObject;

und dann halt

Delphi-Quellcode:

  SpectraII := TLVSpectraII.Create(Self);
  LastObject := SpectraII;

Wenn ich dann ein neues Gerät bedienen will tue ich folgendes:

Delphi-Quellcode:

LastObject.free;
neuesGeraet := TLVneuesGeraet.Create(Self);
LastObject := neuesGeraet;

[rwachtel]

Zitat von moelski:

[...] ich habe folgendes probiert:

Delphi-Quellcode:

  SpectraII := TLVSpectraII.Create(Self);
  LastObject := SpectraII;
  LastObject.free;

Danach habe ich eine Datei geladen die das Objekt SpectraII verwendet. Aber da ich keine Exception bekommen habe muss es immer noch existent gewesen sein.

Ups, wahrscheinlich war einfach der Speicherbereich zufällig noch nicht überschrieben. Folgendes "funktioniert" auch:

Delphi-Quellcode:

  TKlasseA = class(TObject)
  public
    destructor Destroy; override;
    procedure WhoAmI;
  end;

implementation

destructor TKlasseA.Destroy;
begin
  ShowMessage('Klasse A sagt Bye-bye...');
  inherited;
end;

procedure TKlasseA.WhoAmI;
begin
  ShowMessage('Ich bin Klasse A.');
end;

[...]

var
  KlasseA: TKlasseA;
  Klasse: TObject;
begin
  KlasseA := TKlasseA.Create;
  Klasse := KlasseA;
  Klasse.Free;
  KlasseA.WhoAmI;
end;