Código Delphi [-] ... uses StrUtils; // PosEx procedure TForm1.Button1Click(Sender: TObject); var Number: string; p1, p2: Integer; begin Number := '(981) 15121351615'; p1 := Pos('(', Number); p2 := PosEx(')', Number, p1); ShowMessage(Copy(Number, p1+1, p2-p1-1)); end;
... uses StrUtils; // PosEx procedure TForm1.Button1Click(Sender: TObject); var Number: string; p1, p2: Integer; begin Number := '(981) 15121351615'; p1 := Pos('(', Number); p2 := PosEx(')', Number, p1); ShowMessage(Copy(Number, p1+1, p2-p1-1)); end;