Buenas prácticas 3 (array de TStrings)

[[maeyanes]]

Hola...

Yo te aconsejaría una lista de TStrings:

Código Delphi [-]
// Puede ser un campo de la forma o clase
var
  StringLists: TList;

var
  I: Integer;
  Strings: TStringList;

begin
  // Si no hemos creado la lista lo hacemos:
  if not Assigned(StringLists) then
    StringLists := TList.Create;
  for I := 0 to Pred(Memo1.Lines.Count) do
  begin
    Strings := TStringList.Create;
    // Aquí se hace el desglose de parámetros de la línea actual de Memo1
    StringLists.Add(Strings)
  end
end;

Ya con esto cuando quieras acceder a uno de los StringLists solo tienes que hacer algo como:

Código Delphi [-]
ShowMessage(TStringList(StringLists[0])[0])

Y al destruir la forma o clase que contiene a StringLists haces:

Código Delphi [-]
// Si se creo la lista la destruimos, pero antes liberamos los TStringList
if Assigned(StringLists) then
begin
  for I := 0 to Pred(StringLists.Count) do
    TStringList(StringLists[i]).Free;
  StringLists.Clear;
  StringLists.Free
end;

Saludos...

[elcigarra]

Gracias, probaré así

[*Caro*]

Hola, también puedes utilizar un TObjectList.

Código Delphi [-]
 Lista : TObjectList;
 
 
var
  I: Integer;
  Strings: TStringList;

begin
  // Si no hemos creado la lista lo hacemos:
  if not Assigned(Lista) then
    Lista := TObjectList.Create;

  for I := 0 to Pred(Memo1.Lines.Count) do
  begin
    Strings := TStringList.Create;
    // Aquí se hace el desglose de parámetros de la línea actual de Memo1
    Lista.Add(Strings)
  end

 //y para liberar es suficiente que hagas:
 Lista.Free;

Saluditos

[*Caro*]

Se me ha ido, para acceder haces:

Código Delphi [-]
 ShowMessage(TStringList(Lista.Items[0])[0]);

y debes añadir la unit Contnrs

Saluditos

[Northern]

Para liberar un array dinámico puedes hacer:
1. miArray := nil
2. SetLength(miArray, 0);


Saludos

[[maeyanes]]

Hola...

Caro, para que tu solución funcione como debe ser, es necesario que luego de crear la lista de objetos hagas:

Código Delphi [-]
StringLists.OwnsObjects := True

De esta forma al hacer StringLists.Free la lista libera automáticamente los objetos que contiene...


Saludos...

[roman]

Empezado por maeyanes

Caro, para que tu solución funcione como debe ser, es necesario que luego de crear la lista de objetos hagas:

Código Delphi [-]
StringLists.OwnsObjects := True

De hecho, no es necesario, al menos así lo dice la ayuda de Delphi:

If no parameter is specified, or if the constructor is called with AOwnsObjects set to true, the new TObjectList is initialized with OwnsObjects set to true

// Saludos

[[maeyanes]]

Hola...

Vaya, es algo que no me había fijado. Siempre pensé que el constructor de TObjectList era sin parámetros.



Saludos...

[rastafarey]

Para liberlo usa este

FreeAndNil(Variable);