jeden anfangsbuchstaben eines wortes groß machen

[SirThornberry]

@Jürgen Thomas: Anstelle mit AnsiUpperCase kann man auch einfach die Api-Funktion nutzen und dort direkt den Speicher des Zeischens angeben.

Delphi-Quellcode:

function FirstCharBig(AText: String): String;
var
  lCount  : Integer;
  lWasDel : Boolean;
begin
  lWasDel := True;
  for lCount := 1 to Length(AText) do
  begin
    if not(AText[lCount] in ['a'..'z', 'A'..'Z']) then
      lWasDel := True
    else if lWasDel then
    begin
      CharUpperBuff(@AText[lCount], 1);
      lWasDel := False;
    end;
  end;
  result := AText;
end;