Zitat von
Christian Seehase:
Das mit STRG-UMSCH-C funktioniert erst ab den Pro-Versionen.
In der
PE muss man leider alles selber schreiben.
Oh... Damit hatte ich nicht gerechnet, dass Borland selbst bei den
IDE-Tastenkürzeln zwischen den Versionen unterscheidet. Nun ja...
@Bastler und viele andere hier im Forum
Bitte
formatiert Eure Quelltexte besser: jeder Block sollte separat eingerückt werden, z.B.:
Delphi-Quellcode:
function TForm1.JPEGtoBMP(const FileName: TFileName):Tbitmap; // <-- TForm1 nicht vergessen!
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
result:=bmp;
bmp.SaveToFile(ExtractFilePath(ParamStr(0))+'\temp.bmp');
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
Es liest sich einfach besser, und logische Fehler werden schneller erkannt!!!
Außerdem empfehle ich, auch vor 'end;' den Befehl mit Semikolon abzuschließen; das vereinfacht spätere Änderungen.
Gruß Jürgen