RE:Cargar/Guardar archivo de texo a array dinámico
Ery gracias por lo que me has dicho, eso ya lo sabía, lo que necesito saber es lo que te voy a poner a continuación.
Los errores que me daban era porque estaba usando Objeto.CREATE; pero no había definido ningún constructor CREATE en la clase cObjeto. Eso ya está solucionado.
Tengo:
- Un archivo de texto con datos. En este formato:
@dato1@dato2@dato3
@dato1@dato2@dato3
@dato1@dato2@dato3
@dato1@dato2@dato3
@dato1@dato2@dato3
@dato1@dato2@dato3
- Una clase cObjeto que tiene tres campos: campo1, campo2, campo3.
- Un array dinámico de tipo cObjeto.
Entonces lo que yo quiero es que cada vez que pulse el botón se me guarde la información de la línea actual del fichero de texto al objeto, luego inserto el objeto en la lista así: Lista.Insertar(Objeto); y todo esto lo repito hasta que el fichero llegue a la última línea.
He pensado en hacer esto pero no me funciona:
procedure TForm1.Button4Click(Sender: TObject);
var
Lista: cLista;
Objeto: cObjeto;
Archivo: textfile;
informacion: string;
begin
IF VentanaEmergente.Execute THEN
BEGIN
SYSTEM.Assign(Archivo,VentanaEmergente.FileName);
SYSTEM.Reset(Archivo);
SYSTEM.Read(Archivo,informacion);
Objeto.CREATE;
Lista.CREATE;
Objeto.Campo1 := informacion;
Lista.Insertar(Objeto);
END;
end;
No se como empezar, ¿me ayudais?. Muchas gracias.