Delphi Zahlen im Edit "filtern"

Thema durchsuchen

Ansicht

Themen-Optionen

Zahlen im Edit "filtern"

Ein Thema von Merchator · begonnen am 2. Jun 2007 · letzter Beitrag vom 2. Okt 2007

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

#12

Re: Zahlen im Edit "filtern"

2. Okt 2007, 11:20

Ich benutze diese Funktion:

zusammenfalten · markieren

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;