Hat sich schon erledigt...
Ein Dummer Fehler...
Richtig hätte es so ausgesehen :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
var jpeg : TJpegImage;
begin
Jpeg := TJpegImage.Create;
for i := 1 to 60 do
begin
Bilder[i] := TBitmap.Create;
Jpeg.LoadFromFile('C:\Bild'+IntToStr(i)+'.jpg');
Bilder[i].Height := Jpeg.Height;
Bilder[i].Width := Jpeg.Width;
Bilder[i].Canvas.Draw(0,0,Jpeg);
end;
end;
Naja... wenigstens hab ichs jetzt richtig hinbekommen... Trotzdem danke, falls ihr euch schon Gedanken darüber gemacht haben solltet.....
mfg Hazardos