Ein ganz normaler String

[mirage228]

Delphi-Quellcode:

uses SysUtils;

function ErsterGross(const Eingabe: String): String;
begin
  if Length(Eingabe) > 1 then
    Result := AnsiUpperCase(Eingabe[1]) + Copy(Eingabe, 2, Length(Eingabe)) else
  Result := AnsiUpperCase(Eingabe);
end;

Ungetestet, sollte aber gehen.

mfG
mirage228