TObjectList - Sort crash (D7)

[Christian Seehase]

Moin Zusammen,

auch wenn der Ursprung des Threads schon recht alt ist, vielleicht liest es ja mal jemand, der ein Problem hat, wie der der TE.

Ich frage mich, warum die Methode MyNewItem als Funktion ausgeführt ist, da ja der Rückgabewert nicht verwendet wird.

So würde ich es mal probieren:

Delphi-Quellcode:

procedure TMyItemList.NewMyItem(a1,a2,a3:Integer);

var
  tmi : TMyItem;

begin
  tmi := TMyItem.Create(Self)
  tmi.V1 := a1;
  tmi.V2 := a2;
  tmi.V3 := a3;
  Self.Add(tmi);
end;

[globetrotter77]

Zitat:

Zitat von Christian Seehase

Ich frage mich, warum die Methode MyNewItem als Funktion ausgeführt ist, da ja der Rückgabewert nicht verwendet wird.

So würde ich es mal probieren:

Delphi-Quellcode:

procedure TMyItemList.NewMyItem(a1,a2,a3:Integer);
...

Genau das wollte ich eigentlich auch noch schreiben, hab's aber wohl wieder verdrängt.
Da könnte auch das Problem begraben sein, denn ich weiß nicht, ob man das Result einer Function ganz ohne Probleme innerhalb der eigenen Function so zuweisen kann.