Hi, (mal kleinlaut nochmal was Frag!)
habe es jetzt etwas umgebaut aber stehe vor einem neuen Problem bei dem ich einfach nicht weiter komme. Wollte es mit ner Procedure machen die Abbricht wenn es das Bild nicht gibt. Aber so wie's grad ist geht es wohl nicht. Wie kann ich ne Procedure oder Function abbrechen?
Folgenden Code hab ich nun:
Delphi-Quellcode:
procedure LoadImage(Bild: String; Ziel: TImage);
var
b: TJPEGImage;
s: TResourceStream;
begin
try
s := TResourceStream.Create(HINSTANCE, Bild, 'JPG');
b := TJPEGImage.Create;
b.LoadFromStream(S);
Ziel.Picture.Bitmap.Assign(b);
b.Free;
except
(*Hier sollt dann ne Fehlermeldung kommen*)
end;
end;
So und aufrufen tu ich's so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadImage('bild1', Image1);
end;
Please help, (auch wenn ich .... die jenigen werden das schon wissen)
Gruß Arma.