Handynummer zu ordnen

[QuickAndDirty]

Ja Danke,
aber das Programm soll ja nicht nur hier in D funktionieren.

ist folgendes brauchbar um alle Standort Daten der Handynummer zu entfernen:

Delphi-Quellcode:

//Schneidet die Führenden Standortdaten ab.
Function LocalizeNumber(Nummer, Amt, Land : String):String;
var s : string;
    i : integer;
Begin


  //Amt entfernen
  i := Length(Amt);
  if i > 0 then
  Begin
    s := Leftstr(nummer,i);
    if s=Amt then
      nummer := Rightstr(nummer, length(nummer)-i);
  end
  //Amt entfernt

  nummer :=  StringReplace(nummer, '+', '00', []);//In den Standort Einstellungen kann kein "+" eingegeben werden. 

  //Land entfernen
  i := Length(Land);
  if i > 0 then
  Begin
    s := Leftstr(nummer,i);
    if s=land then
      nummer := Rightstr(nummer, length(nummer)-i);
  end;
  //Land entfernt

  //Stadt oder Handynetz der Person sind ja in der DB mit angegeben
  //vor einem Vergleich werden dann noch alle führenden Nullen (vermutlich nur eine)  entfernt

end;

Ich vergleiche das Resultat danach über eine Funktion die führenden Nullen ignoriert mit den
Telefonnummern in der Datenbank und gebe die ID des passenden Eintrags zurück...

Handynummer zu geordnet.

ist die funktion irgendwie unvollständig ? Oder eignet sie sich für meine Zwecke?