Mein Programmierstyl

[faux]

Hallo!

Was mir aufgefallen ist:

Delphi-Quellcode:

function Tserver_mainform_form.CheckFileExtension(filetocheck: TFilename; FileExtension: string): string;
begin
  // Dateinamen überprüfen oder korrigieren
  if RightStr(filetocheck, 4) <> FileExtension then
    begin
      Result := filetocheck + FileExtension;
    end
  else
    begin
      Result := filetocheck;
    end;
end;

Du hältst deine begins und ends nicht konstant am selben Platz.
Die sind direkt unter function, jedoch nicht direkt unter if bzw else. Wieso rückst du da ein?

Grüße
Faux