Pegar o que tiver depois de uma string

Question

Bom dia...Gostaria de pegar o texto em um Memo, de tudo o que estiver escrito ap�s a palavra Chave, exemplo:Chave texto   &lt- textotexto texto Chave teste    &lt- testese algu�m tiver a solu��...

Bruno Leandro · Answer

tenta assimvar i:integer; varString: string;begin  i := pos(palavrachave,memo.text)  varString := copy(memo.text,i+length(palavrachave),length(memo.text));end;...

Cristiano · Answer

Funcionou cara, por�m..... se tiver mais linhas abaixo ele pega todo o resto, e seria s� na linha em que a palavrachave est�.Alguma solu��o??obrigado....

Bruno Leandro · Answer

voce pode ter a palavra chave em mais de uma linha?...

Bruno Leandro · Answer

var  i, j: Integer;begin  for i := 0 to Memo1.Lines.Count - 1 do  begin    j := pos(palavrachave,Memo1.Lines);    if j &gt 0 then    begin      varString := copy(Memo1.Lines,i+length(palavrachave),length(Memo1.Lines));      ShowMessage([aspas]achou na linha [aspas] + inttostr(i+1) + [aspas] na posi��o [aspas] inttostr(j));    end;  end...

Bruno Leandro · Answer

desta forma a variavel varString deve ser processada toda as vezes que forem encontradas pois se achar mais de uma vez ela ser� atualizada

var
i, j: Integer;
varString :string;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
j := pos(palavrachave,Memo1.Lines[i]);

if j > 0 then
begin
varString := copy(Memo1.Lines[i],j+length(palavrachave),length(Memo1.Lines[i]));
ShowMessage([aspas]achou na linha [aspas] + inttostr(i+1) + [aspas] na posi��o [aspas] inttostr(j));
end;
end

Cristiano · Answer

entendi... funcionou certinho aqui.n�o h� necessidade do usuario digitar a palavrachave mais de uma vez, mas � melhor eu tratar isso!obrigado!E aproveitando que estou aqui, se n�o for abusar da sua boa vontade, eu preciso de outro codigo, seria alterar as posi��es de certas palavras.palavra1, palavra2 chaveteria que ficar assim:chave palavra1, palavra2se for possivel... agrade�o. Muuito obrigado maninho!!!...

Bruno Leandro · Answer

pra substituir poderia tentar desta formaMemo1.text := StringReplace(Memo1.text,Palavra1,Palavra2,[rfReplaceAll, rfIgnoreCase]);...

F�rum Pegar o que tiver depois de uma string #414171