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;
__________________
Alejandro Jourdan
|