Como Passar O Nome Do Form E Do Componente E Fazer Um String
Tenho a seguinte dúvida:
Como passar o nome do form e do componente e fazer um StringReplace ao mesmo tempo?
Ex.:
frmPron.MemPront.text := StringReplace( frmPron.MemPront.text,#$D$A + ´CABEÇALHO´,´CABEÇALHO´, [rfReplaceAll, rfIgnoreCase]);
Ao invés de usar o nome do formulário ´frmPron´ e o nome do memo ´MemPront´ gostaria de compactar o código pois uso essa rotina em 3 formulários diferentes e tambem não fasso apenas uma substituição de string fasso 30 substituições. Por isso minha preocupação em compactar o código.
Desde já agradeço a quem puder me ajudar.
Como passar o nome do form e do componente e fazer um StringReplace ao mesmo tempo?
Ex.:
frmPron.MemPront.text := StringReplace( frmPron.MemPront.text,#$D$A + ´CABEÇALHO´,´CABEÇALHO´, [rfReplaceAll, rfIgnoreCase]);
Ao invés de usar o nome do formulário ´frmPron´ e o nome do memo ´MemPront´ gostaria de compactar o código pois uso essa rotina em 3 formulários diferentes e tambem não fasso apenas uma substituição de string fasso 30 substituições. Por isso minha preocupação em compactar o código.
Desde já agradeço a quem puder me ajudar.
Exvasp
Curtidas 0
Respostas
Ara.es
11/05/2007
Você pode criar uma procedure para isso.. pode fazer a assim:
procedure subtituir(Memo : TMemo)
begin
Memo.Text := StringReplace(Memo.Text,#$D$A ´CABEÇALHO´,´CABEÇALHO´, [rfReplaceAll, rfIgnoreCase]
end;
Não se esse vai dar certo, pois copiei seu Stringreplace, mas a ideia é o seguinte você cria um procedimento que receba um memo e substitua o texto dele. Assim vc pode chamar esse procedimento de qualquer lugar do codigo.
Você pode criar uma unit so de procedures e funtions uteis, aquelas que podem ser usadas em qualquer lugar, assim vc vai ter todas elas centralizadas e so so declarar essa unit no USES e usar.
qualquer coisa e so falar.. []´s
procedure subtituir(Memo : TMemo)
begin
Memo.Text := StringReplace(Memo.Text,#$D$A ´CABEÇALHO´,´CABEÇALHO´, [rfReplaceAll, rfIgnoreCase]
end;
Não se esse vai dar certo, pois copiei seu Stringreplace, mas a ideia é o seguinte você cria um procedimento que receba um memo e substitua o texto dele. Assim vc pode chamar esse procedimento de qualquer lugar do codigo.
Você pode criar uma unit so de procedures e funtions uteis, aquelas que podem ser usadas em qualquer lugar, assim vc vai ter todas elas centralizadas e so so declarar essa unit no USES e usar.
qualquer coisa e so falar.. []´s
GOSTEI 0
Exvasp
11/05/2007
Você pode criar uma procedure para isso.. pode fazer a assim:
procedure subtituir(Memo : TMemo)
begin
Memo.Text := StringReplace(Memo.Text,#$D$A ´CABEÇALHO´,´CABEÇALHO´, [rfReplaceAll, rfIgnoreCase]
end;
Não se esse vai dar certo, pois copiei seu Stringreplace, mas a ideia é o seguinte você cria um procedimento que receba um memo e substitua o texto dele. Assim vc pode chamar esse procedimento de qualquer lugar do codigo.
Você pode criar uma unit so de procedures e funtions uteis, aquelas que podem ser usadas em qualquer lugar, assim vc vai ter todas elas centralizadas e so so declarar essa unit no USES e usar.
qualquer coisa e so falar.. []´s
Muito obrigado, valeu!
GOSTEI 0