Funktionen einbinden ?

[Jürgen Thomas]

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