Forum: Object-Pascal / Delphi-Language
Delphi
by Der schöne Günther,
19. Mai 2014
Hoppla, stimmt.
procedure TPicture.SetGraphic(Value: TGraphic);
var
NewGraphic: TGraphic;
begin
NewGraphic := nil;
if Value <> nil then
begin
NewGraphic := TGraphicClass(Value.ClassType).Create;
Forum: Object-Pascal / Delphi-Language
Delphi
by Der schöne Günther,
19. Mai 2014
Damit ich es endlich mal verstehe:
TPicture kann man als einen "Container" für ein TGraphic sehen. TGraphic ist eine abstrakte Basisklasse für TIcon, TMetaFile, TBitmap und viele weitere...
Alles richtig soweit?
Warum ergibt folgendes ein Speicherleck?
procedure TForm2.FormCreate(Sender: TObject);
var