Zahlen im Edit "filtern"

[WIng2005]

Habe es so gelöst:

Delphi-Quellcode:

x:=length(bt);
while x>0 do
begin 
  if bt[x] in ['0'..'9',' '] then delete(bt,x,1)
  else dec(x);
end;

dachte nur, dass Delphi da evtl. schon ne fertige Funktion hat..

MFG
Steffen

[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

[WIng2005]

Was wird hier als charSet übergeben? Habe noch nie damit gearbeitet...

MFG
Steffen

[marabu]

Delphi-Quellcode:

const
  DIGITS = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
begin
  ShowMessage(WithOut('C123F', DIGITS));
end;