Anfangsbuchstaben eines Strings in Großbuchstaben umwandeln

[Noedel]

wenn ich das richtig verstanden hab, sollte

Code:

upcase(wort[i])

auch gehen!?

probiers mal aus

[NineBerry]

Hallo

Du kannst doch auch einfach das Original-Wort in einer zweiten String-Variable speichern.

Neun

[DeddyH]

Upcase berücksichtigt keine Umlaute, wie bereits weiter oben erwähnt. Möglich wäre auch noch so etwas:

Delphi-Quellcode:

if (Length(wort) > 0) and (wort[1] in ['a'..'z','ä','ö','ü']) then
  wort[1] := Chr(Ord(wort[1]) - $20);

Gilt allerdings nur für Deutsch.

[mkinzler]

Und funktioniert leider unter D2009 nicht mehr

[Hawkeye219]

Hallo,

ich hätte da noch einen Vorschlag für das Teilproblem "AnsiUpCase":

Delphi-Quellcode:

function AnsiUpCase (ch : Char) : Char;
begin
  Result := Char({Windows.}CharUpper(PChar(ch)));
end;

Gruß Hawkeye

[DeddyH]

Zitat von mkinzler:

Und funktioniert leider unter D2009 nicht mehr

Mit AnsiStrings sollte das schon funktionieren.

[mkinzler]

Chr liefert allerdings einen Char zurück, welcher nicht kompatibel mit AnsiChar ist.

[DeddyH]

Kann ich nicht wissen, ich hab kein D2009.