Zitat von
3_of_8:
Delphi-Quellcode:
function ExtractFileExtension(FilePath: String): String;
begin
Result:=ExtractFileExt(FilePath);
Result:=Copy(Result, 1, length(Result));
end;
Muss es nicht
Result:=Copy(Result, 2, length(Result)); // 2 statt 1
heißen? Immerhin beginnt doch ein Delphi-String bei 1, nicht bei 0!
//Edit:
Wow
Ich bin eben auch (zum 1. mal) in den Genuss gekommen mal keinen roten Kasten gehabt zu haben
Flare