Tema: Duda con una String
Ver Mensaje Individual
  #2  
Antiguo 30-06-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola Paulao, el ultimo parametro del copy es el número de caracteres y en tu código si se esta incluyendo el FONO mas, puedes arreglarlo así.

Código Delphi [-]
var
 FinLoja : Integer;
begin
 s := 'LOJA: São Bento FONE:11)9999-9999';
 j := AnsiPos('LOJA:',s);
 FinLoja := j+5;
 if j <> 0 then
  Loja := Copy(s,FinLoja,pos('FONE:',s)-FinLoja);

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita