如何用DELPHI来读数据？

Question

dcsdata.txt文件格式：
[AI]
第1个AI量值
第2个AI量值
 ……
第m个AI量值
[DI]
第1个DI量值
第2个DI量值
 ……
第n个DI量值
请问如何将［AI］或[DI]内每行数据读出写到SQL表中？，每行数据对应SQL表的每一个字段,r1,r2,r3...，谢谢各位!

Answer 1

类似如下：
procedure TForm1.Button1Click(Sender: TObject);
var
    slTemp:TStringList;
    i,iAiPosBegin,iAiPosEnd:integer;
begin
    slTemp:=TStringList.Create;
    slTemp.LoadFromFile('dcsdata.txt');    iAiPosBegin:=slTemp.IndexOf('[AI]')+1;
    iAiPosEnd:=slTemp.IndexOf('[DI]');    Table1.Edit;
    for i:=iAiPosBegin to iAiPosEnd-1 do
    begin
        if Table1.FindField('r'+IntToStr(i))<>nil then
            Table1.ParamByName('r'+IntToStr(i)).AsString:=slTemp[i];
    end;
    try
        Table1.Post;
    except
        ;
    end;
    slTemp.Free;
end;

Answer 2

if Table1.FindField('r'+IntToStr(i))<>nil then
            Table1.ParamByName('r'+IntToStr(i)).AsString:=slTemp[i];
错了--------------------------------->>>>>>>>>>>>>>>>>>>>
        if Table1.FindField('r'+IntToStr(i))<>nil then
            Table1.FieldByName('r'+IntToStr(i)).AsString:=slTemp[i];

Answer 3

读文本文件大概是这样的
var
  F: TextFile;
  temp: String;
begin
  AssignFile(F, 文件名);
  Reset(F);
  readln(F, temp); //取到一行数据
  其它处理语句....
  CloseFile(F);
end;

Answer 4

谢谢gzmhero帮我解决了问题，也谢谢baiduan(小安子) 回了帖子，您的方法我试不成功(我太笨了)，现我要给分啊!怎么给不上的？？