ayuda con LISTAS(con cursores,arreglos y apuntadores)

[santiago14]

Empezado por velapuerca88

HOLA, gracias por la respuesta, no se bien lo que quisiste decir arriba, pero entiendo que es algo de programacion orientada a objetos, todavia no nos enseñan lo que son los objetos hasta el cuatrimestre que viene, por lo que tendria que hacerlo de alguna manera sin usar objetos.saludos!

Bueno, si por las dudas te interesa saber un poco mas del objeto StringList, lo puedes encontrar aquí. Igualmente con lo que te mandó Al seguramente podrás resolverlo, claro que será un poco mas costoso. Supongo que eso es bueno, lo entrena a uno para lo que viene.

Saludos.

[ecfisa]

Hola velapuerca88.

Supongo que te están restringiendo al uso de arreglos. Te paso una opción similar que no requiere uso de objetos:

Código Delphi [-]
...
type
  TDynArrayStr = array of string;
...
procedure LeerDeArchivo(const NomArch: string; var Lista: TDynArrayStr);
var
  Txt: TextFile;
  NroL: integer;
begin
  AssignFile(Txt, NomArch);
  Reset(Txt);
  try
    NroL:= 0;
    while not Eof(Txt) do
    begin
      SetLength(Lista, Length(Lista)+1);
      Readln(Txt,Lista[NroL]);
      Inc(NroL);
    end;
  finally
    CloseFile(Txt);
  end;
end;
...

Utilizo un arreglo dinámico en lugar de uno estático, por que no se puede conocer de antemano la cantidad de líneas que posee el archivo.

Ejemplo de llamada a la función:

Código Delphi [-]
...
var
  Lineas: TDynArrayStr;
begin
   LeerDeArchivo('TU_ARCHIVO.TXT', Lineas);
   ...
end;

Saludos.