Telefon Optimize

[barutali]

Ne varsa regex de var..

 uses System.Regularexpressions;

Fonksiyonumuz

function TelefonNumarasiniOptimizeEt(Const AValue : String = '') : String;
const
APattern : String = '[\+\-\(\)\.\sa-zA-Z]';
var
szLength : String;
begin
 Result := TRegEx.Replace(AValue, APattern, EmptyStr, [roIgnoreCase]).Trim;
if Length(Result) >= 10 then
szLength := '10'
 else
  szLength := IntToStr(result.Length);

 Result := TRegEx.Match(Result, '.{'+szLength+'}$', [roIgnoreCase]).Value;
end;

Kullanımı :

var
FTmp : String;
begin
  FTmp := TelefonNumarasiniOptimizeEt('asdasdasda .- ( ) 05465865599');
end;