Trocar letras por números?

Delphi

23/04/2008

Como posso fazer para substituir letras do memo,
Por números? Estou procurando entender sobre isso
o que não deve ser dificil :shock:
Quem puder deichar um exemplo seria de grande ajuda

T+


Psycho

Psycho

Curtidas 0

Respostas

Rodc

Rodc

23/04/2008

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


GOSTEI 0
Psycho

Psycho

23/04/2008

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


acho que sim,
poderia me dar um exemplo trocando a letra A pelo número 10?

Vlw :wink:


Memo1.Lines.Text


GOSTEI 0
Martins

Martins

23/04/2008

[quote:82fdca53a2=´rodc´]Para pegar o texto use Memo1.Lines.Text e para trocar uma letra use StringReplace(). Era isto que você queria?


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:

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[i];
    Repeat
    P:=Pos(Velho, L);
    If P > 0 then
       Begin
       Delete(L, P, Length(Velho));
       Insert(Novo, L, P);
       Texto.Lines[i]:= L;
       end;
    until P = 0;
    end;
end;


Exemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  SubstituirStr(Edit1.Text, Edit2.Text, Memo1);
end;


Espero q sirva para vc.

Boa sorte e bons códigos.


GOSTEI 0
Martins

Martins

23/04/2008

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.


GOSTEI 0
Psycho

Psycho

23/04/2008

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:


GOSTEI 0
Cristiano Alves

Cristiano Alves

23/04/2008

Isso foi apenas um exemplo

a função StringReplace recebe 4 argumentos

1º - String que conténs as Substring que se deseja mudar
2º - Valor a ser substituido
3º - Valor que substituira
4º - ReplaceFlags 

Memo1.Text := StringReplace(´ABCDEFG´, ´C´, ´10´, [rfReplaceAll]);


No exemplo acima a letra C será substituida por 10


GOSTEI 0
Psycho

Psycho

23/04/2008

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


GOSTEI 0
POSTAR