Doppelte Buchstaben aus String auslesen

[Uwe Raabe]

Zitat von SirMaurice:

Ich bräuchte tatsächlich nur 26 Buchstaben.

Na dann...

Delphi-Quellcode:

function StripDoubleChars(const Source: string): string;
var
  C: AnsiChar;
  cSet: set of 'A'..'Z';
  I: Integer;
begin
  cSet := [];
  Result := '';
  for I := 1 to Length(Source) do begin
    C := AnsiChar(UpCase(Source[I]));
    if not (C in ['A'..'Z']) then Continue;
    if not (C in cSet) then begin
      Include(cSet, C);
      Result := Result + Source[I];
    end;
  end;
end;