Se ha ampliado el ejemplo anterior sobre threads, para mostrar cómo se puede configurar el número de threads que se deseen para ejecutar una tarea concreta. Se puede definir un número máximo (por el usuario) y se muestra cómo se van ejecutando threads.
A medida que los primeros van acabando, se lanzan nuevos hasta completar todo el proceso.
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,…).
1
2
3
4
5
6
7
8
9
10
{: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
{: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