Me acoste a dormir un rato porque no me daban mas las neuronas... Me parece bien tu propuesta, y lo primero es: porque no me guarda bien las cosas en el txt, y comohago saltos de linea!!! Les paso el codigo.
en la unit2:
Código:
procedure TArchivo.AgregarCliente(c:Cliente;var b:byte);
begin
{$I-}
Seek(Archi, FileSize(archi));
{$I+};
b:=IOResult;
If b=0 then
Write(Archi,c);
end;
en la unit1
Código:
procedure TForm1.AgregarCliente1Click(Sender: TObject);
var c:Cliente; b:byte;
begin
Edit1.ReadOnly:=false;
Edit2.ReadOnly:=false;
Edit4.ReadOnly:=false;
c.nombres:=Edit1.Text;
c.Apellido:=Edit2.Text;
c.DNI:=StrToInt(Edit3.Text);
c.saldo:=StrToFloat(Edit4.Text);
Archivo.AgregarCliente(c,b);
If b<>0 then ShowMessage('No se pudo agregar el registro. Seguramente no abrió el archivo correspondiente.')
else ShowMessage('Se ha agregado el registro');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
asi me imprime en el txt:Juan t™ i Carlos& t™ & Á6* Tö u,;~Jose t™ i Perez t™ & Á6* Tö u,;~
nose rian mucho, estoy aprendiendo...