Llenar datos en StringList
 

Hola a todos

En un vector yo puedo inicializar con algunos datos ej.

Código Delphi [-]
    vOpcion:Array[0..3] of String=('N','N','N','N');

quisiera saber si se puede hacer lo mismo con un StringList por ahora lo hago

Código Delphi [-]
    slOpcion.add('N');
    slOpcion.add('N');
    slOpcion.add('N');
    slOpcion.add('N');

Agredecere un monton cualquier comentario o sugerencia que me den gracias.

No se puede.

En principio, el StringList está totalmente vacío, es decir, no tiene elementos, por tanto no se pueden inicializar.

Se puede crear un bucle, aunque para 4 elementos , es demasiado.

Código Delphi [-]
procedure Inicializa(Lista:TStringList; Elementos:integer; ValorInicial:string);
begin
if not assigned(Lista) then // si no está creada
  Lista := TStringList.Create;

for i:=0 to Elementos -1 do // como empieza en 0, siempre es uno menos.
 if i > Lista.Count-1 then  // si queremos más elementos de los que hay
  Lista.Add(valorinicial)
 else
  Lista[i] := valorinicial; // damos el valor inicial.
end;

saludos

Hola,

Yo supongo que hacer algo así es demasiado también, ¿no?

Código Delphi [-]
 unit UMiStrings;
 
 interface
 
 uses
   Classes;
 
 type
   TMiStrings = class(TStringList)
     constructor Create;
   end;
 
 implementation
 
 { TMiStrings }
 
 constructor TMiStrings.Create;
 begin
   Self.Add('Una cadena');
   Self.Add('Otra cadena');
   Self.Add('Una cadena más');
 end;
 
 end.

O, cuando no, tal vez ir un poco más allá, o más acá... veremos a ver... ;)

Código Delphi [-]
 unit UMiStrings;
 
 interface
 
 uses
   Classes;
 
 type
   TMiStringList = class(TStringList)
     constructor Create(const elementos: array of string);
   end;
 
 implementation
 
 { TMiStrings }
 
 constructor TMiStringList.Create(const elementos: array of string);
 var
   i: integer;
 begin
   for i := 0 to High(elementos) do
   begin
     Self.Add(elementos[i]);
   end;
 end;
 
 end.

Lo cual podría utilizarse más o menos de este modo:

Código Delphi [-]
 var
   LS: TMiStringList;
   SA: array[1..3] of string;
 begin
   SA[1] := 'Una cadena';
   SA[2] := 'Otra cadena';
   SA[3] := 'Una cadena más';
 
   LS := TMiStringList.Create(SA);
 
   ShowMessage(LS.Text);
 
   LS.Free;
 end;

No sé. Espero que lo dicho no sea tan todo disparatado como me lo está pareciendo ya... ;)