A veces es
interesante poder acceder al contenido de un
TStrings (de un
TMemo, por ejemplo)
como un único string o cadena.
Para eso, Delphi ha dotado a la
clase TStrings del método
Text,
que devuelve el contenido del TStrings como una cadena simple. El
inconveniente, es que dentro del resultado van
incluídos los caractreres de
"Salto de línea"
y
"Retorno de
carro". ¿Cómo eliminarlos?
Con ésta
sencilla función se pueden eliminar y/o susituir por otro caracter
(espacio,...).
{:Elimina los saltos de línea (caracteres #10 y #13; salto de linea y salto
de carro) de un TStrings.}
function QuitarSaltosLinea(Strs: TStrings; CharReplace:String=STR_EMPTY):String;
var
Str:string;
begin
Str := AnsiReplaceStr(Strs.Text, #10, CharReplace);
Result := AnsiReplaceStr(Str, #13, CharReplace);
end;
Indice