Anfangsbuchstabe eines Wortes

[marabu]

Einen hätte ich noch:

Delphi-Quellcode:

uses
  StrUtils;

function AnsiStartsLowercase(s: string): boolean;
begin
  Result := AnsiLeftStr(s, 1) = AnsiLowerCase(AnsiLeftStr(s, 1));
end;

Grüße vom marabu