TStringList AddObjects

[sakura]

Zitat von MrSpock:

Ich dachte, dass die Objekte nur als Verweise gespeichert werden. Stimmt das nicht?

Doch, das ist korrekt, aber wenn der Speicher noch nicht andersweitig genutzt wurde, dann gibt es oft keinen Fehler Es passiert aber auch nichts Gutes. Es kommt auch auf die genutzte Property an.

Folgendes geht ohne AV

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  L: TLabel;
begin
  L := TLabel.Create(Self);
  L.Tag := 5;
  L.Free;
  L.Tag := 0;
end;

Dieses geht nur mit AV

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  L: TLabel;
begin
  L := TLabel.Create(Self);
  L.Caption := 'Hi Spockie';
  L.Free;
  L.Caption := 'Bye Spockie';
end;

......