Copy

Delphi

02/10/2005

Banal, mas não me lembro, como faço mesmo para copiar uma string até um determinado caracter? Tipo, tenho uma string que começam com numeros, e depois letras, só que são separadas por um hifen(-). Como faço para copiar até o hifen?(ele não pode ser copiado, somente os numeros, que variam de 1 até 7 digitos).


Paulo

Paulo

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

02/10/2005

Colega,

O hífen tem posição fixa?
Se sim, supondo que esteja na posição 8:
S := Copy(SuaString, 1, 7);


Se não:
I := Pos(´-´, SuaString);
if I > 0 then
  S := Copy(SuaString, 1, (I - 1));


T+


GOSTEI 0
POSTAR