Hi, herzlich willkommen!
Das ist etwas unperformant und auf die Schnelle hingecoded, müsste aber gehen:
Delphi-Quellcode:
function CreateCorrectName(MyName: string): string;
var
i: Integer;
TempName: string;
begin
TempName := MyName;
TempName := LowerCase(TempName);
for i := 1 to Length(MyName) do
begin
if i = 1 then
TempName[i] := UpperCase(TempName[i])[1] else
if TempName[i - 1] = ' ' then
TempName[i] := UpperCase(TempName[i])[1]
end;
result := TempName;
end;
Nur wenn das tausende Namen sind, die du formatieren musst, würde ich wohl nach einer anderen Lösung suchen.
Edit: Da war eine Zeile zuviel. ^^