Como separar uma sequencia de caracteres de uma string ?

[MarKteus 1]

Salve Galera ! O carnaval já era :)

 

Vamo q vamo

 

Alguém saba como posso extrair uma cadeira de caracteres de uma string ?

Coloquei em um ListBox um item assim

1 - Texto,

 

Onde 1 é uma varável com nome de Cod

e o - (tracinho) um separador normal

e Texto é outra variável como nome de cTexto

 

concatenei assim nomeObj:= inttostr(Cod)+' - '+cTexto;

no Listbox é mostrado assim 1 - Texto.

 

Agora preciso guardar em uma variável somento a sequencia Texto, ou seja, tenho q separar o inicio da String (1 -) q ñ preciso e guardar o resto (Texto) em outra variável.

 

é possível fazer isto ?

[Hugo Slepicka 0]

Fala aew Fera, beleza?

 

Segue abaixo aew um Code exemplo pra você! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

procedure TForm1.FormCreate(Sender: TObject);var texto, resultado : string;begin  texto := '115 - Texto';  resultado := Copy(texto,Pos('-',texto)+1,Length(texto));  showmessage(resultado);end;

[MarKteus 1]

Valew Hugão !!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Opa, estamos ai! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif