Anzeigen von DDS Dateien

[TiGü]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
  PNGTyp:TPngImage;
begin
  PNGTyp := LoadDXT1('aaaaa');
  Image1.Picture.Assign(PngTyp);
  PNGTyp.Free; 
end;

Sonst hast du Speicherlecks!

[creehawk]

Ups, alles klar, danke!

[haentschman]

Moin...
Ich will ja nicht meckern...aber TRY FINALLY ist ein indisches Gewürz oder?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  PNGTyp:TPngImage;
begin
  PNGTyp := LoadDXT1('aaaaa');
  try
    Image1.Picture.Assign(PngTyp);
  finally
    PNGTyp.Free;
  end;
end;