Funktion aufrufen

[ByTheTime]

DANKE!! Es funktioniert!!!

[Luckie]

Zitat von ByTheTime:

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;

[himitsu]

Zitat:

Delphi-Quellcode:

function TFormSettings.StringReplace(S: string; OldPattern: string; NewPattern: string; Flags: TReplaceFlags): string;
begin
 Profil := StringReplace(Profil, 'guten', 'Schönen', [rfReplaceAll, rfIgnoreCase]);
 ShowMessage(Profil);
end;

Seh ich das grade falsch, oder sollte das nicht eigentlich in einerm Endlosschleife Stacküberlauf enden, da sich diese Methode immer wieder selber aufruft?