Anfangsbuchstaben eines Strings in Großbuchstaben umwandeln

[mkinzler]

Einfach selber machen:

Delphi-Quellcode:

procedure Captialize( var str: AnsiString);
var
    i, j: integer;
    sl: TStrings;
    s, s2: AnsiString;
    c: AnsiChar;
begin
    sl := TStringList.Create;
    sl.Delimiter := ' ';
    sl.StrictDelimiter := True;
    sl.DelimitedText := str;
    for i := 0 to sl.Count-1 do
    begin
        s := Sl[i];
        c := s[1];
        if c in ['a'..'z'] then
        begin
            s2 := c;
            s := UpperCase( s2) + Copy ( s, 2, Length(s)-1);
        end;
        sl[i] := s;
    end;
    str := sl.DelimitedText;
    sl.Free;
end;