Ver la Versión Completa : Cambiar & por &
jourdan
30-03-2010, 19:25:42
Que tal foro, alguien sabe si existen componentes para delphi que automaticamente cambien & por &, es decir visualmente se vea el & pero en la base de datos eñl valor que se guarde sea el &
Y esto mismo para:
En el caso de & usar secuencia &
En el caso de " usar secuencia "
En el caso de < usar secuencia <
En el caso de > usar secuencia >
En el caso de ' usar secuencia &apos
Muchas gracias y saludos
Alejandro Jourdan
BrunoBsso
30-03-2010, 20:26:31
No creo que haga falta un componente para un manejo de strings tan básico.
Probá hacerlo vos mismo. No es complicado.
Que tal foro, alguien sabe si existen componentes para delphi que automaticamente cambien & por &, es decir visualmente se vea el & pero en la base de datos eñl valor que se guarde sea el &
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
procedure TForm1.......CampoGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := StringReplace(Sender.AsString, '&', '&', [rfReplaceAll]);
end;
Saluditos
jourdan
20-04-2010, 00:05:02
Muchas gracias por sus respuestas, estoy usando algo así (si alguien tiene una mejor por favor responder):
var
before, after : string;
begin
before := 'This is & a ''way to < live A > big "life';
Memo1.Lines.Add(before);
after := StringReplace(before, '&', '&',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '<', '<',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '>', '>',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '"', '"',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '''', ''',
[rfReplaceAll, rfIgnoreCase]);
}
Memo1.Lines.Add(after);
end;
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.