Copiar determinado trexo de texto de um Edit!?! Humpf

Delphi

18/08/2003

Ola galera beleza?
Vou ser bem curto e grosso!!!! heheheehe...

Bom nao sei como fazer isso, quero copiar um determinado texto que esteja em uma Edit

Exemplo:
27/01/2003 - Rio Grande do Sul - Ativo - Serie: Alternativa
27/01/2003 - Brasilia - Inativo - Serie:Alternativa

Queria copiar para um outro Edit somente a palavra [b:6d4a6b3216]Ativo e/ou Inativo[/b:6d4a6b3216], quando clicado em um botão!

Ou copiar apartir de um determinado caracter e finalizar em outro!!!

Tem como fazer isso?
Agradeço a ajuda de quem me salvar dessa!!!!...
:lol:


Cyber Dark

Cyber Dark

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

18/08/2003

Colega,

Veja detalhes no help sobre a função POS:

Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var cTeste: String;
begin
  cTeste := ´27/01/2003 - Rio Grande do Sul - Ativo - Serie: Alternativa´;
  if Pos(´Ativo´,cTeste) then
end;



GOSTEI 0
Bacalhau

Bacalhau

18/08/2003

O que parece delimitar as palavras é o caracter ´-´. Faz assim:

if Pos(´Ativo´,cTeste) <> 0 then // escreve activo
if Pos(´Inativo´,cTeste) <> 0 then // escreve inactivo


GOSTEI 0
Cyber Dark

Cyber Dark

18/08/2003

Po, valeu mesmo!!!
Obrigadão ai pessoal, uffaaaa.... consegui fazer!!!

:D :wink:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

18/08/2003

O que parece delimitar as palavras é o caracter ´-´. Faz assim: if Pos(´Ativo´,cTeste) <> 0 then // escreve activo if Pos(´Inativo´,cTeste) <> 0 then // escreve inactivo


Valeu! Esqueci de colocar a condição de teste para o colega.


GOSTEI 0
POSTAR