Hallo,
ich weiß nicht genau, ob meine Frage hierher gehört. Sollte das nicht so sein, dann bitte ich den/die Zuständigen, das mal entsprechend zu verschieben.
In meinem Programm werden Grafikverarbeitungen gemacht, die auf Teufel komm raus zu Ende geführt werden müssen. Zudem möchte ich mich nicht darauf verlassen, dass die angelieferten Listen mit den Grafik-Dateien die passenden Endungen zu den Formaten haben. Standard ist bei mir png, dann jpeg, ggf. auch bmp und ansonsten eine Fehlermeldung. Im Moment mache ich das so (Bitte beachten: Das ist nur eine Ausschnitt. Im Programm gibt es kein OpenDialog1, sondern eine TStringList mit zig Dateien):
Delphi-Quellcode:
Procedure Machwas;
Var
tPNG : TPngObject;
tJPG : TJPEGImage;
tBMP : TBitmap;
Begin
If (Not OpenDialog1.Execute) Then Exit;
tPNG:=TPngObject.Create;
tJPG:=TJPEGImage.Create;
tBMP:=TBitmap.Create;
Try
Try
tPNG.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Assign(tPNG);
Except
Try
tJPG.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Assign(tJPG);
Except
Try
tBMP.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Assign(tBMP);
Except
ShowMessage('Unbekanntes Dateiformat:' + #13 +
OpenDialog1.FileName);
End;
End;
End;
Finally
tPNG.Free;
tJPG.Free;
tBMP.Free;
End;
End;
Kann man das irgendwie kürzer, schöner, eleganter, besser machen?
Mein Problem ist, dass dieser Code mehrfach im Programm auftaucht und diese Schachtelei mit der Zeit nicht besonders schön ist und die Lesbarkeit und damit die spätere Wartung des Codes sehr eingeschränkt sind.
Gruß und danke fürs drüberschauen, Alex