怎样在DELPHI里，成批处理txt里的记录？

Question

大侠好！
问个问题：假设有个txt文档里有很多相似的记录。
现在在DELPHI里已建个临时表，且只建立一个字段，用来存放txt内的每行记录。
如何成批导入？
谢谢

Answer 1

读到每行给数据库insert不就ok?

Answer 2

同意 bluespy(先迈左脚，还是右脚？？？)
循环就行了

Answer 3

var FileStream1:TFileStream;
    Stream1:TStream;
    aaa:integer;
begin
FileStream1:=nil;
Stream1:=nil;
FileStream1:=TFileStream.Create(trim(edit2.text),fmOpenRead);
FileStream1.Position:=0;
ADOTable1.Insert;
ADOTable1.FieldByName('filename').asstring:=trim(edit1.text);
ADOTable1.FieldByName('filetype').asstring:=trim(combobox1.text);
Stream1:=ADOTable1.CreateBlobStream(ADOTable1.FieldByName('filetxt'), bmReadWrite);
Stream1.CopyFrom(FileStream1,FileStream1.Size);
Stream1.Free;
ADOTable1.Post;
FileStream1.Free;
end;