Que Tamaño Máximo Maneja un TStringList????

[AGAG4]

Uso Delphi6, y tengo un ciclo donde voy llenando a una variable TStringList una cadena de String, aproximadamente al llegar a la línea 4058 truena el programa y me marca la siguiente excepción EOutOfMemory que por lo que he leido me he sobrepasado el tamaño de memoría asignada a esta variable, si esa es la capacidad de un TStringList, No hay algun otro Elemento de Delphi que me permita manejar grandes cantidades de String's en un sólo objeto, el tamaño aproximado que necesito que maneje dicho objeto es de 2 a 3 MB....

Otra cosa la pc donde estoy ejecutando el ciclo tiene 256 MB en RAM, WinXP Professional y sólo esta cargado en Memoria Delphi y los Messenger de Yahoo y Hotmail.

Agradezco cualquier sugerencia.

[Mick]

El numero maximo de elementos en un TStringList para la arquitectura x86 son mas o menos mil millones.
De modo que el error que te da no se produce por ningun limite en ese objeto sino por un limite fisico de la memoria RAM que tenga el ordenador. Debes estar usando muchisima mas memoria ( 2 o 3 megas no son nada) de la que crees para que se produzca un error de ese tipo.

SAludos.

[Casimiro Notevi]

pero mucha, muchísimas más

[AGAG4]

Primeramente Gracias por sus Comentarios, eso es lo que me imagine desde el principio, pero solamente tengo cargado los 2 Messenger(yahoo y hotmail) y Delphi reviso el Administrador de Tareas para revisar cuanta memoría RAM esta disponible y tiene fisicamente 127 MB libre, ya lo probe con otra Pc y lo mismo, lo que hice fue Quitar algunas cosas del ciclo, dicho ciclo barre alrededor de 60,000 articulos y por cada uno va y buscar en una Tabla de FireBird si ya existe y lo agrego a uns variable de tipo TStringList, ignore la busqueda y todo marcha bien, seguire realizando pruebas....

Que tengan Buen Día....

[[Lepe]]

4.000 elementos no son nada, busca alguna función recursiva que tengas, y me refiero a un evento OnChange por ejemplo, si al pulsar una tecla en un edit, haces que se cargue esos 4.000, cada tecla que se pulse está cargando otros 4.000 más.

O incluso una funcion indirectamente recursiva .....Modificar por código tal o cual cosa dentro de un bucle, que hace saltar un evento Onchange por cada ciclo.

Este tipo de cosas son las más dificiles de encontrar, Puede ser de utilidad usar una constante asignable en forma de contador, para ver cuantas veces pasa por ahí:

Código Delphi [-]
procedure NoSeSiEsRecursivo;
const contador:integer = 0;
begin
memo1.lines.add('contador tiene '+ inttostr(inc(contador)));

//... hacer lo que sea
end;

Quizás puedas controlarlo al revés, es decir, meter en el SringList los que no estan en la tabla de firebird. Si explicas lo que estas haciendo, quizás te podamos dar alternativas, ya sabes que 40 ojos ven más que 2 .

[AGAG4]

He Realizado Pruebas después de haber Actualizado el Delphi 6 con el Service Pack 2 y con Delphi 7, no me funciono me sigue marcando Error de Memoría, entonces, opte por realizar una prequeña aplicación donde meto un pequeño ciclo y voy rellenando 100 caracteres por linea poniendo al ciclo 10,000 Lineas para llenar pero , aproximadamente en la linea 6,000 truena el programa, y si multiplicamos 10,000 X 100 nos da un total de 1,000,000 de Elementos a guardar en un TStringList pero se cuelga en la linea 6,000 nos da un total de 600,000 Elementos Añadidos, Siendo que Mick me señala que son Millones de Elementos lo que soporta un TStringList, les paso el código de este ejemplo:

Código Delphi [-]
....
function LlenaString(car:char; longi:integer):String;
var x:integer;
begin
for x:=1 to longi do
result:=result+car;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
x : integer;
lista:TStringList;
begin
lista := TStringList.Create;
ProgressBar1.Max:=10000;
for x:=1 to 10000 do begin
lista.Add(LlenaString('x',100));
ProgressBar1.Position:=x;
Application.ProcessMessages;
label1.Caption:='No. '+IntToStr(x);
end;
lista.SaveToFile('c:\temp.txt');
lista.Free;
end;
....

Más que nada pongo este ejemplo para ver si a alguien le muestra el error EOutOfMemory ya lo probe con 2 PC's, una con WinXp y otra con Win98.

La alternativa que tengo es, hacer Bloques de Datos es decir, por cada 4,000 lineas crear un archivo diferente....

Gracias por sus comentarios....

[Mick]

El problema no tiene nada que ver con el objeto TSTringList, tienes un pequeño bug (o mas bien enorme si consideramos sus efectos) en la funcion LLenaString, te falta Inicializar la variable Result a la cadena vacia. Al no inicializarla queda con el valor anterior, de modo que las lineas que introduces en el stringlist no son de 100 caracteres sino cada vez mas grandes (cuando vas por el elemento 2000 son de 200.000 carateres) de modo que realmente estas usando cada vez mas memoria y de una forma exponencial.

La funcion corregida seria asi:

function LlenaString(car:char; longi:integer):String;
var x:integer;
begin
 Result:= '';
 for x:=1 to longi do begin
   result:=result+car;
 end;
end;

Aunque concatenar cadenas de lo forma que lo hace la funcion anterior es muy ineficiente asi que aconsejo esta otra funcion que hace lo mismo pero es 30 veces mas rapida que la anterior (El codigo de ejemplo para cien mil elementos tarda 6 segundos usando la primera funcion y solo 2 decimas de segundo utilizando el siguiente codigo):

function LlenaString(car:char; longi:integer):String;
var x:integer;
begin
 SetLength(Result,longi);
 for x:=1 to longi do begin
   result[x]:= car;
 end;
end;

Aunque la mejor opcion es usar la funcion que trae delphi para esos casos y nos ahorramos repetir codigo:

StringOfChar('x',100);

SAludos

[AGAG4]

Gracias Mik por sus comentarios, voy a realizar pruebas....