Zahlen im Edit "filtern"

[marabu]

Ich benutze diese Funktion:

Delphi-Quellcode:

function Without(const s: string; charSet: TSysCharSet): string;
var
  i, iDel: Integer;
begin
  Result := s;
  iDel := 0;
  for i := 1 to Length(s) do
    if not (s[i] in charSet)
      then Result[i - iDel] := s[i]
      else Inc(iDel);
  SetLength(Result, Length(s) - iDel);
end;

Skaliert besser.

Freundliche Grüße