大家会不会这样的问题?

Question

读文件（一条一条的读每个字段），然后给Table的每个Field分别赋值，然后Post！

Answer 1

不会吗当然要问了,我想freewizard一定会这样的问题了,希望大家能写一些代码给我
谢谢大家的关心!问题解决了一定会给分的.

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var F:TextFile;
    stateName:string[20];
    capitalName:string[20];
begin
   ADOTable1.Open;
   AssignFile(F,'c:\text.txt');
   Reset(F);
   try
    while not eof(F) do
     begin
      readln(F,stateName,capitalName);
      ADOTable1.Insert;
      ADOTable1['名']:=stateName;
      ADOTable1['洲']:=capitalName;
      ADOTable1.Post;
      end;
     finally
     CloseFile(F);
   END;
end;

Answer 3

thisisxutao说的应给不错,我一定会给你分的
谢谢大家的帮助