![]() |
|
#1
|
|||
|
|||
![]() Уважаемые гуру, посоветуйте как?
переменная tel:='9109884668'; на форме EditMask с маской в формате +7(___)___-__-__ , как правильно вставить в EditMask переменную tel ,что то вроде EditMask.Text:=tel; направьте на путь истинный .. |
#2
|
|||
|
|||
![]() Да, что-то не работает компонент как ожидаешь.
Вариант - самому применить маску и вставлять уже в маскированном виде. Простой вариант: Код:
function FormatPhoneNumber(Phone : String) : String; var I: Integer; begin if Length(Phone) <> 10 then raise Exception.Create('Actual length is not equal to 10.'); for I := 1 to 10 do if Not (Phone[i] in ['0'..'9']) then raise Exception.CreateFmt('Characted %d is not a number.',[i]); Result := '+7(' + Copy(Phone,1,3) + ')'+Copy(Phone,4,3) + '-' + Copy(Phone,7,4); end; procedure TForm1.Button1Click(Sender: TObject); var tel : String; begin tel:='9109884668'; MaskEdit1.Text := FormatPhoneNumber(tel); end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Filen (Сегодня)
|
#3
|
|||
|
|||
![]() Цитата:
Спсибо дорогой, очень помог .. ![]() |