Cambiar & por &amp

[*Caro*]

Empezado por jourdan

Que tal foro, alguien sabe si existen componentes para delphi que automaticamente cambien & por &amp, es decir visualmente se vea el & pero en la base de datos eñl valor que se guarde sea el &amp

Hola jourdan, estoy suponiendo que te refieres a algún componente de base de datos, puedes hacerlo con el DataSet que estas utilizando y el evento OnGetText del campo que deseas cambiar, ademas de utilizar la función StringReplace

Código Delphi [-]
procedure TForm1.......CampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 Text := StringReplace(Sender.AsString, '&amp', '&', [rfReplaceAll]);
end;

Saluditos