Hallo,
eine andere Möglichkeit wäre es mit Hilfe einer Stringliste zu lösen:
Delphi-Quellcode:
FUNCTION CreateCorrectName(MyName: STRING): STRING;
VAR
i : Integer;
Liste: TStrings;
BEGIN
Liste := TStringList.Create;
Liste.Delimitier := ' '; // Hier muss natürlich ein Leerzeichen stehen
Liste.DelimitedText := MyName;
FOR i := 0 TO Liste.Count - 1 DO
Liste[i] := UpperCase(Liste[i]); // und da hat eine Klammer gefehlt
Result := Liste.DelimitedText;
Liste.Free;
END;
Grüße von Dale