Ein ganz normaler String

[jim_raynor]

Zitat von ibp:

wie wäre es mit...

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  if Eingabe = '' then exit;
  result:=AnsiLowerCase(Eingabe);
  result:=AnsiUpperCase(Eingabe[1]);
end;

Kleiner Fehler. Korrekt muss es so sein:

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  if Eingabe = '' then exit;
  result:=AnsiLowerCase(Eingabe);
  result[1]:=AnsiUpperCase(Eingabe[1]);
end;

man beachte die [1] bei result in der zweiten Zeile. Fehlt die, wird der String wieder komplett überschrieben.

P.S: Dieser Smiley ist einfach nur genial