Trocar variavel em string

Question

Achei um exemplo mais nao estou dando conta de ajustaloessa funcao troca a variavel dentro de um MEMO so queeu nao quero apresentar componentes na tela gostaria de fazer em um String ou Text algo assi...

Marco Salles · Answer

Acho que vai ter que ter um Pouquinho de digita��o extra.. Principalmente na Chamada do m�todo...
Quer um exmplo classico

procedure MudarEdit(var texto:String);
begin
texto:=�Mude�;
end;

begin MudarEdit(edit1.text); //n�o compila end;

[b:16de3b7bfb]para isso tem fazer assim[/b:16de3b7bfb] :

var texto:String; texto:=edit1.Text; mudarEdit(texto); edit1.Text:=texto;

eu particularmente n�o conhe�o nada que se possa fazer para conseguir isso , sem a cria��o de uma vari�vel auxiliar... Talves alguem saiba uma saida elegante para isso.. Fico tb no aguardo.[b:16de3b7bfb] Ficaria muito feliz[/b:16de3b7bfb]

voltemos ao seu caso

procedure TForm1.FindReplace (const Enc, subs: String; Texto:TStringList);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Count - 1 do
  begin
    Linha := Texto.Strings[i];
    Repeat
    Posicao:=Pos(Enc,Linha);
    If Posicao > 0 then
    Begin
      Delete(Linha,Posicao,Length(Enc));
      Insert(Subs,Linha,Posicao);
      Texto.Strings[i]:=Linha;
    end;
until
  Posicao = 0;
end;
end;

//usando uma variavel auxiliar , [b:16de3b7bfb]no caso o UmaLista[/b:16de3b7bfb]

procedure TForm1.Button1Click(Sender: TObject);
var
umalista:TstringList;
begin
try
umaLista:=TstringList.Create;
umaLista.AddStrings(memo1.lines);
FindReplace(edit1.Text,edit2.Text,umaLista);
memo1.Lines:=umalista;
finally
umaLista.Free;
end;
end;

F�rum Trocar variavel em string #341269