Substituir o quot;caracter enterquot; por lt;brgt;

Delphi

02/08/2007

Ola,

gostaria de saber como substituir os ´enters´ em um TMemo pela string
de forma que o resultado fique tudo em uma linha só, com os ´
´ no lugar de onde estavam os ´enters´.

Eu procurei na internet e achei uma rotina de substituicao de uma string por outra, mas nao sei que string seria o ´enter´. Tentei #1310 mas nao funcionou.

Alguem poderia ajudar?

Grato dede ja.


Kohl

Kohl

Curtidas 0

Respostas

Jáder Medeiros

Jáder Medeiros

02/08/2007

Use esta minha função:
Function StringReplaces(pText: String; pOld,pNew: array of PChar): String;
var
i: Integer;
begin
Result := pText;
for i := Low(pOld) to High(pOld) do
if High(pNew) < i then
if High(pNew) < 0 then
Result := SysUtils.StringReplace(Result,pOld[i],´´,[rfReplaceAll])
else
Result := SysUtils.StringReplace(Result,pOld[i],pNew[0],[rfReplaceAll])
else
Result := SysUtils.StringReplace(Result,pOld[i],pNew[i],[rfReplaceAll])
end;


da seguinte forma:
Memo1.Lines.Text := StringReplaces(Memo1.Lines.Text,[13,10,1310],[´<br>´])



GOSTEI 0
Kohl

Kohl

02/08/2007

Exatamente o que queria, muito obrigado pela ajuda.


GOSTEI 0
POSTAR