Ruffnummer aus der Tabelle Suchen mit möglichen zeichen..

[Karstadt]

Delphi-Quellcode:

Function TForm1.GibNummerAusString(Nr:String):String;
var i, tr_i: Integer;
    Nummer:String;
begin
  Nummer := '';

  for i := 1 to Length(Nr) do
  begin
    If TryStrToInt(Nr[i],tr_i) Then Nummer := Nummer + Nr[i];
  end;

  Result := Nummer;
end;

nun habe ich alles.. um die Abfrage mache ich mir nun keine Sorgen mehr...