Wie kann ich feststellen, ob Sub-Klasse schon gelöscht ist

[norwegen60]

Zitat von Edelfix:

[DELPHI]
for i := 0 to TestList.Count do
if (TestList[i].Values <> nil) then
FreeAndNil(TestList[i].Values);

Das habe ich als erstes probiert. Das lässt Delphi nicht zu

Code:

[DCC Fehler] uQualHelper.pas(187): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

[jziersch]

Zitat:

Es kann es sein, dass mehrere TTest auf das gleich TValues zeigen

In diesem Fall würde ich eine separate Liste anlegen in denen die TValues + eine eindeutige ID (Cardinal) gespeichert werden. In deiner TTest Klasse hast Du dann nur diese ID.
Jede neues TValue erzeugt eine neue ID mit Inc(LastID).
Wenn Du ein TValue löscht werden die IDs automatisch ungültig. Dies Liste ist sortiert, da neue Values hinten angehängt werden. Wert-Lücken ergeben sich durch das löschen.

Du kannst das TValue zu jeder ID schnell mit List.BinarySearch suchen - und wenn es nicht gefunden wird, ist der Wert eben ungültig.

Anmerkung - müsste es nicht heißen for i:=0 to List-Count-1 do ?

[Lemmy]

Servus,

Zitat von norwegen60:

Es kann es sein, dass mehrere TTest auf das gleich TValues zeigen

Jetzt will ich in allen TTest, denen ein TValues zugewiesen ist, dieses löschen

d.h. TTEst legt die Instanz von TValues nicht an, sondern bekommt die zugewiesen oder holt die sich wo her. Bisher hat sich bei mir folgendes bewährt:
Wer Objekte anlegt, der gibt die auch wieder frei (keine Regel ohne Ausnahme). D.h. du kannst so vorgehen wie jziersch vorschlägt. Oder du sagst etwas mehr darüber wie die KLassen zueinander finden.

ein FreeAndNil funktioniert nicht, weil die Funktion eben einen Var-Parameter braucht. Lösen kannst Du das mit einem Zweizeiler:

Delphi-Quellcode:

for i := 0 to TestList.Count do
  if (TestList[i].Values <> nil) then
  begin
    TestList[i].Values.Free;
    TestList[i].Values := nil;
  end

allerdings klappt das im weiteren Verlauf nicht weil:

Zitat von norwegen60:

Es kann es sein, dass mehrere TTest auf das gleich TValues zeigen

Daher bleibt imho nix anderes als eine zentrale Liste / Klasse, die die Lebensdauer von TValues überwacht, erstellt, freigibt. Wenn Du zum drum herum noch das eine oder andere sagen kannst, dann kann man hier vielleicht auch noch den einen oder anderen Tipp geben.

Grüße

[Uwe Raabe]

Eine ziemlich bequeme Möglichkeit wäre es, die Klassen von TComponent abzuleiten und mit FreeNotification zu arbeiten. Das könnte dann in etwa so aussehen:

Delphi-Quellcode:

type
  TValues = class(TComponent)
  public
    x: Double;
    y: Double;
  end;

  TTest = class(TComponent)
  public
    Name: String;
  private
    FValues: TValues;
    procedure SetValues(const Value: TValues);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    property Values: TValues read FValues write SetValues;
  end;

procedure TTest.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if (AComponent = FValues) and (Operation = opRemove) then
    FValues := nil;
  inherited;
end;

procedure TTest.SetValues(const Value: TValues);
begin
  if FValues <> Value then
  begin
    if FValues <> nil then
      FValues.RemoveFreeNotification(Self);
    FValues := Value;
    if FValues <> nil then
      FValues.FreeNotification(Self);
  end;
end;

Die verbleibenden public Fields würde ich aber gleich auch noch in Properties umwandeln.