Trocar letras por n�meros?

Question

Como posso fazer para substituir letras do memo,Por n�meros? Estou procurando entender sobre issoo que n�o deve ser dificil  :shock:   Quem puder deichar um exemplo seria de grande ajudaT+...

Rodc · Answer

Para pegar o texto use Memo1.Lines.Text e para trocar uma letra use StringReplace().Era isto que voc� queria?...

Psycho · Answer

[quote:57d805c942=�rodc�]Para pegar o texto use Memo1.Lines.Text e para trocar uma letra use StringReplace().Era isto que voc� queria?[/quote:57d805c942]acho que sim,poderia me dar um exemplo trocando a letra A pelo n�mero 10?Vlw  :wink: Memo1.Lines.Text...

Martins · Answer

[quote:82fdca53a2=�psycho�][quote:82fdca53a2=�rodc�]Para pegar o texto use Memo1.Lines.Text e para trocar uma letra use StringReplace().Era isto que voc� queria?[/quote:82fdca53a2]acho que sim,poderia me dar um exemplo trocando a letra A pelo n�mero 10?Vlw  :wink: Memo1.Lines.Text[/quote:82fdca53a2]Use a procedure abaixo:[code:1:82fdca53a2]Procedure SubstituirStr(const Velho, Novo: String; Var Texto:TMemo);var  i, P: Integer;  L: string;begin  for i:= 0 to Texto.Lines.count - 1 do  begin      L := Texto.Lines&#91;i&93;;    Repeat    P:=Pos(Velho, L);    If P > 0 then       Begin       Delete(L, P, Length(Velho));       Insert(Novo, L, P);       Texto.Lines&91;i&93;:= L;       end;    until P = 0;    end;end;[/code:1:82fdca53a2]Exemplo de uso:[code:1:82fdca53a2]procedure TForm1.Button1Click(Sender: TObject);begin  SubstituirStr(Edit1.Text, Edit2.Text, Memo1);end;[/code:1:82fdca53a2]Espero q sirva para vc.Boa sorte e bons c�digos....

Martins · Answer

Se vc testou a forma mais complexa, ent�o q tal usar uma �nica linha de c�digo para fazer isso, vamo usar a fun��o StringReplace.

veja como usar.

Adicione:
2 Edit�s
1 Button

Coloque esse c�digo no OnClick do Button1

  Memo1.Text := StringReplace(Memo1.Text, Edit1.Text, Edit2.Text, [rfReplaceAll]);

Boa sorte e bons c�digos.

Psycho · Answer

Martins, esse seu exemplo com os edits resolveu meu problema,
Mais, Como seria sem usar eles, Meu problema j� est� resolvido
embora irei ter que colocar varios edits para cada palavra funciona,
Gostaria de saber como seria sem eles

Obrigado :wink:

Cristiano Alves · Answer

Isso foi apenas um exemploa fun��o StringReplace recebe 4 argumentos1� - String que cont�ns as Substring que se deseja mudar2� - Valor a ser substituido3� - Valor que substituira 4� - ReplaceFlags [code:1:2825fc1f2b]Memo1.Text := StringReplace(�ABCDEFG�, �C�, �10�, &#91;rfReplaceAll&93;); [/code:1:2825fc1f2b]No exemplo acima a letra C ser� substituida por 10...

Psycho · Answer

Valeu galera voc�s s�o 10,agora tenho 2 formas de como fazer,cmainfor, Acho que dessa formao programa fica mais leve, vlw  :wink:...

F�rum Trocar letras por n�meros? #357530