Anfangsbuchstaben eines Strings in Großbuchstaben umwandeln

[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