ayuda con LISTAS(con cursores,arreglos y apuntadores)

[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!

[[Al González]]

Entiendo. Siendo así, podrás hacerlo con las funciones
AssignFile, Reset, ReadLn y EOF. En el foro encontrarás varios temas relacionados con esas funciones, incluyendo ejemplos como el que Caral expone en este hilo: http://www.clubdelphi.com/foros/showthread.php?t=69299

Espero te sirva. Si puedes leer en inglés, te recomiendo consultar la ayuda de Delphi referente a cada una de esas funciones. La información y ejemplos que ahí vienen son oro puro.

No dudes en seguir preguntando, andaremos cerca.

Al González.

[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.