Forum: Object-Pascal / Delphi-Language
Delphi
by xaromz,
11. Mär 2007
Hallo,
www.chromesville.com
Gruß
xaromz
Forum: Object-Pascal / Delphi-Language
Delphi
by xaromz,
11. Mär 2007
Hallo,
Das lässt sich natürlich nicht ohne eine Hilfsvariable erledigen.
Die einzige Möglichkeit wäre hier folgende:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
begin
// Icon aus Exe auslesen und Image zuweisen
Icon := GetFileIcon('C:\Test.ico');
Forum: Object-Pascal / Delphi-Language
Delphi
by xaromz,
10. Mär 2007
Hallo,
Das ist ja auch klar. Das TMeinObjekt wird zwar freigegeben, das darin erstellte TIcon aber nicht. Du hast also ein Speicherleck erzeugt. Wenn Du im Destruktor von TMeinObject das TIcon aufräumst, steigt auch der Speicher nicht an.
Gruß
xaromz