数据导出问题：

Question

var
i,num:integer;
tf:textfile;
begin
    with table1 do
    begin
        if active then close;
        open;
        assignfile(tf,'C:\1.txt');
        rewrite(tf);
        num:=Fields.Count;
        for i:=0 to num-1 do
        begin
            write(tf,Fields[i].FullName,' ');//字段名
        end;    end;    writeln(tf,' ');    table1.First;
    while not table1.eof do
    begin
        for i:=0 to num-1 do
        begin
            write(tf,table1.Fields[i].asstring,' ');//字段内容        end;        writeln(tf,' ');
        table1.next;
    end;    closefile(tf);
end;

Answer 1

我还有一事要问：如何把文本导入表中知道吗？