Ver Mensaje Individual
  #6  
Antiguo 24-03-2020
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por igamerpc Ver Mensaje
Exacto me funciono. Gracias.



¿Dentro procedure se puede ejecutar sin function?
Si:
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;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita