Fórum arquivo txt #192702

var l : textfile;
s : string;

assignfile(l,´ARQUIVO.TXT´);
reset(l);

while not eof(l) do
begin
readln(l,s); // leu string
table1.edit;
table1.fieldbyname(nome).asstring := s; // se for string
table1.fieldbyname(nome).asfloat := floattostr(s); // se for float
table1.fieldbyname(nome).asinteger := inttostr(s); // se for inteiro
table1.post;
end;

closefile(l);