|
Стационарный или мобильный телефон?
#38803066
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Смоленск
Сообщения: 99
|
|
skyANAВиталий Гробштейн, сэкономьте другим. Опубликуйте решение.
Вот оно:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
// Возвр. True, если данный номер - мобильный
function TfrmImport.IsMobile(Ph : string) : Boolean;
var S : string;
begin
Result := False;
if Length(Ph) < 10 then
Exit;
Ph := StringReplace(Ph, '-', '', [rfReplaceAll]);
Ph := StringReplace(Ph, '(', '', [rfReplaceAll]);
Ph := StringReplace(Ph, ')', '', [rfReplaceAll]);
Ph := StringReplace(Ph, ' ', '', [rfReplaceAll]);
if StrLeft(Ph, 2) = '+7' then
Ph := Copy(Ph, 3, 10)
else if StrLeft(Ph, 1) = '8' then
Ph := Copy(Ph, 2, 10);
if StrLeft(Ph, 1) = '8' then // бесплатный звонок и т.п.
Exit;
if CurCountryNm = 'РОССИЯ' then begin
Result := (StrLeft(Ph, 1) = '9');
Exit;
end else if CurCountryNm = 'БЕЛОРУССИЯ' then begin
S := StrLeft(Ph, 3);
if (S = '044') or (S = '033') or (S = '025') or (S = '029') then begin
Result := True;
Exit;
end;
end else if CurCountryNm = 'КАЗАХСТАН' then begin
S := Copy(Ph, 3);
if S[1] <> '7' then
Exit;
if (S = '700') or (S = '701') or (S = '702') or (S = '705') or (S = '707') or
(S = '712') or (S = '713') or (S = '717') or (S = '718') or (S = '721') or
(S = '725') or (S = '726') or (S = '727') or (S = '777') then begin
Result := True;
end;
Exit;
end else if CurCountryNm = 'УКРАИНА' 0 then begin
S := Copy(Ph, 3);
if (S = '039') or (S = '050') or (S = '063') or (S = '066') or (S = '067') or
(S = '068') or ((S >= '091') and (S <= '099')) then begin
Result := True;
end;
Exit;
end;
end;
|
|
|
