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?