Alle anderen Zeichen außer a-z entfernen!

[shmia]

Da werfe ich doch mal die Funktion aus der JCL in die Runde.
Kackig, Schnell und Universell.

Delphi-Quellcode:

function StrKeepChars(const S: AnsiString; const Chars: TSysCharSet): AnsiString;
var
  Source, Dest: PChar;
begin
  SetLength(Result, Length(S));
  UniqueString(Result);
  Source := PChar(S);
  Dest := PChar(Result);
  while (Source <> nil) and (Source^ <> #0) do
  begin
    if Source^ in Chars then
    begin
      Dest^ := Source^;
      Inc(Dest);
    end;
    Inc(Source);
  end;
  SetLength(Result, (Longint(Dest) - Longint(PChar(Result))) div SizeOf(AnsiChar));
end;
// Beispiel
s := StrKeepChars(s, ['a'-'z', 'A'-'Z']);