telefono delphi

[ecfisa]

Hola.

Código Delphi [-]
...
uses StrUtils;

function GetPrefix(const Number: string): string;
var
  p1, p2: Integer;
begin
  p1 := Pos('(', Number);
  p2 := PosEx(')', Number, p1);
  Result := Copy(Number, p1+1, p2-p1-1);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetPrefix('(981) 15121351615'));
end;

Saludos