Como guardar em variável 1 cadeia caracteres de uma string ?

Delphi

21/02/2007

[b:9571dacfcd][color=red:9571dacfcd][size=24:9571dacfcd]Salve Galera ![/size:9571dacfcd] [/color:9571dacfcd][/b:9571dacfcd] O carnaval já era :)

Vamo q vamo

[b:9571dacfcd][size=18:9571dacfcd][color=blue:9571dacfcd]Alguém saba como posso extrair uma cadeira de caracteres de uma string ?[/color:9571dacfcd][/size:9571dacfcd][/b:9571dacfcd]
Coloquei em um ListBox um item assim
[b:9571dacfcd][color=brown:9571dacfcd]1 - Texto[/color:9571dacfcd][/b:9571dacfcd],

Onde [color=brown:9571dacfcd][b:9571dacfcd]1[/b:9571dacfcd][/color:9571dacfcd] é uma varável com nome de [color=brown:9571dacfcd][b:9571dacfcd]Cod[/b:9571dacfcd][/color:9571dacfcd]
e o [color=brown:9571dacfcd][b:9571dacfcd]- [/b:9571dacfcd][/color:9571dacfcd](tracinho) um separador normal
e [color=brown:9571dacfcd][b:9571dacfcd]Texto [/b:9571dacfcd][/color:9571dacfcd]é outra variável como nome de [b:9571dacfcd][color=brown:9571dacfcd]cTexto[/color:9571dacfcd][/b:9571dacfcd]

concatenei assim [color=brown:9571dacfcd][b:9571dacfcd]nomeObj:= inttostr(Cod)+´ - ´+cTexto[/b:9571dacfcd][/color:9571dacfcd];
no Listbox é mostrado assim [b:9571dacfcd][color=brown:9571dacfcd]1 - Texto[/color:9571dacfcd][/b:9571dacfcd].

Agora preciso guardar em uma variável somento a sequencia [size=18:9571dacfcd][color=brown:9571dacfcd][b:9571dacfcd]Texto[/b:9571dacfcd][/color:9571dacfcd][/size:9571dacfcd], ou seja, tenho q separar o inicio da String [b:9571dacfcd][color=brown:9571dacfcd](1 -)[/color:9571dacfcd][/b:9571dacfcd] q ñ preciso e guardar o resto [b:9571dacfcd](Texto)[/b:9571dacfcd] em outra [color=brown:9571dacfcd][b:9571dacfcd]variável[/b:9571dacfcd][/color:9571dacfcd].

é possível fazer isto ?


Skyphill

Skyphill

Curtidas 0

Respostas

Rjun

Rjun

21/02/2007

Se você definir que sempre vai haver um traço separando o número do texto, você pode fazer algo parecido com isso:

var
  Posicao: integer;
begin
  Posicao := Pos(´-´, Linha) + 1;
  Texto := Copy(Linha, Posicao, Length(Linha) - Posicao);
end;



GOSTEI 0
POSTAR