Identische Zeichen in einem String erkennen

[DeddyH]

Oder mit einer for-Schleife:

Delphi-Quellcode:

function SameCharsInString(const AString : String) : Boolean;
var
  i : Integer;
begin
  Result := Length(AString) > 1;
  if Result then
    for i := 2 to Length(AString) do
      begin
        Result := AString[i] = AString[1];
        if not Result then break;
      end;
end;