Ver Mensaje Individual
  #4  
Antiguo 10-11-2006
mane mane is offline
Miembro
 
Registrado: may 2005
Posts: 30
Reputación: 0
mane Va por buen camino
Y si lo haces así...

Supongamos estas variables
ft : textfile;
lin : string;

y un fichero donde está la información, un código de 5 letras y una descripción, separados por una coma (o lo que sea)

Código:
  assignfile(ft,DirectoryEdit1.text+'\Anotacion.txt');
  {$I-}
    Reset(Ft);
  {$I+}
  if IOResult <> 0 then
  begin
    Showmessage('No se encuentra el fichero de anotaciones.');
    Exit;
  end;
  while not eof(ft) do
  begin
    Readln(ft,lin);
    Table1.Append;
    Table1.Fieldbyname('Codigo').asstring:=copy(lin,1,5);
    Table1.Fieldbyname('Fecha').asdatetime:=now;
    Table1.Fieldbyname('Descripcion').asstring:=copy(lin,7,80);
    Table1.Post;
  end;
  Closefile(ft);
Responder Con Cita