Bom , estou fazendo um progama , que esta ficando show de bola galera..
este progama tem a função de trocar as strings de uma lista , de um arquivo de texto..
Estou atualmente usando a seguinte função para trocar strings em um RichEdit...
// Faz a procura e substitui uma String no campo memo.
// Exemplo :: FindReplace(Edit1.Text,Edit2.Text, Memo1);
Procedure FindReplace (const Enc, subs: String; Var Texto: TRichEdit);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i := 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then //se encontra palavra
Begin
Delete(Linha,Posicao,Length(Enc)); //deleta
Insert(Subs,Linha,Posicao);
Texto.Lines[i] := Linha;
end;
until Posicao = 0;
end;
end;
Pergunta
LorenaMorena
Boa Tarde a todos!
Primeiramente, sou iniciante..
Bom , estou fazendo um progama , que esta ficando show de bola galera..
este progama tem a função de trocar as strings de uma lista , de um arquivo de texto..
Estou atualmente usando a seguinte função para trocar strings em um RichEdit...
ai na hora de trocar eu faço assim!:Resumo do meu progama: 2 listbox, o 1º serve para add str, o 2º serve para confirmar só e ilustrar xDDD!
Ok! Atualmente funciona perfeitamente!!
ele pega do primeiro Listbox1 e trocar pelo Listbox2 as strings...
Mas eu queria apenas mais uma coisinha nesta função que é meu motivo de vinda até aqui!!!
Sabe a opção frWholeWord e a opção frMatchCase?
Então , gostaria de implementar essas 2 funçãozinhas no meu procedimento de alterar string!!!
Mas infelizmente não estou conseguindo . Será q alguém pode me enviar um dica?
Muito Obrigado , tenha um bom dia!
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.