So, ausführlich, jetzt erwarte ich auch unterstützung
Und ich erwarte endlich mal die Fehlermeldung!!!
OK. Zum einen ist die Bezeichnung deiner Methode mehr als unglücklich, da sie genauso heißt, wie die Funktion, die du in ihr aufrufst. Hinzukommt, dass die Bezeichnung völlig nichts sagend ist, was die Methode überhaupt macht. RemoveFileExtension wäre wesentlich besser. Zum Anderen gehört vor die Implementation der Methode noch der Klassenname:
Delphi-Quellcode:
function TFormSetting.RemoveFileExtension(Filename: string): string;
begin
Result := ChangeFileExt(Filename, '')
end;