Forum: Datenbanken
Delphi
by Karstadt,
26. Okt 2006
If TryStrToInt(Nr,tr_i) Then Nummer := Nummer + Nr;
Es wird nur 1 zeichen überprüft... ;)
Forum: Datenbanken
Delphi
by Karstadt,
26. Okt 2006
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,tr_i) Then Nummer := Nummer + Nr;
end;
Forum: Datenbanken
Delphi
by Karstadt,
26. Okt 2006
shmia Diese lösung ist mir auch lieber. (während der Pause bin ich auch auf diese Lösung gekommen) ;)
ObBeforPost wird mir die integerzahlen in einen extrafeld abspeichern...
Danke für ihre Hilfe.
Forum: Datenbanken
Delphi
by Karstadt,
26. Okt 2006
Hallo.
Habe ein Feld Telefonnummer (String).
Nun kann in diesen Feld folgendes stehen:
0451-1111111
oder
04951-11111111
oder