Fórum Substituir o quot;caracter enterquot; por lt;brgt; #344008
02/08/2007
0
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.
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
Curtir tópico
+ 0
Responder
Posts
02/08/2007
Jáder Medeiros
Use esta minha função:
da seguinte forma:
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>´])
Responder
Gostei + 0
02/08/2007
Kohl
Exatamente o que queria, muito obrigado pela ajuda.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)