D2010 Char-AnsiChar Problem

[Bernhard Geyer]

Einfach etwas umbauen (ungetestet):

Delphi-Quellcode:

function AnsiUpperFirstChar(const S: string): string;
begin
  if S <> '' then
    result = AnsiUpperCase(Copy(S, 1, 1)) + AnsiLowerCase(Copy(S, 2, Length(S)));
  else
    result = '';
end;