Ver Mensaje Individual
  #1  
Antiguo 02-12-2008
elcigarra elcigarra is offline
Miembro
 
Registrado: may 2005
Posts: 269
Reputación: 19
elcigarra Va por buen camino
Buenas prácticas 3 (array de TStrings)

Hola amigos

Siguiendo con la zaga sobre la liberación de memoria y las buenas prácticas de programación me encuentro con el siguiente entuerto.

El usuario en una de mis aplicaciones entra strings en un TMemo
yo tengo que desglosar por Strings y a cada una de ellas disgregarlas en parámetros internos del String.

O sea que al final debo trabajar con una lista INDETERMINADA (tantas como lineas en el TMEMO) de listas indeterminadas (tantos como parámetros en cada string del TMemo) de Strings (parámetro).

Para que se hagan una idea simplificada, el usuario entraría algo así en el memo1:

'Par1 Par2 par3'
'Par4 Par5 par6 par7 par8'
'par1 par9'

Yo lo que necesito es tener un array con estos textos por lo que me hice (aunque funciona perfecto no sé si está bien hacerlo) un "array de TStrings"

El código obviamente muy simplificado (y en su última linea mi pregunta) quedaría así:
Código Delphi [-]
procedure Lio_de_listas;
var
  miArray: array of TStrings;
  miLista: TStrings;
begin
  miLista := TStringList.Create;
  SetLength(miArray,2);
  
  miLista.Clear;
  miLista.Add('primer_texto de uno');
  miLista.Add('segundo_texto de uno');
  miarray[0] := miLista;
  miLista.Clear;
  miLista.Add('primer_texto de dos');
  miLista.Add('segundo_texto de dos');
  miLista.Add('segundo_texto de dos');
  miarray[1] := miLista;
  
  MiLista.Free;
// pero ahora como libero el array ?????
end;
eso... como libero el array? ... si es que debo hacerlo
Responder Con Cita