将文本中带格式的数据导入到数据库中

procedure TFmMain.BtngoClick(Sender: TObject);
var
txtfile : TextFile;
txtstr,tmpstr : string;
id,Num,L_ID,U_ID,U_Name : string;
s : integer;
begin
//连接数据库
con.Connected := false;
con.KeepConnection := true;
con.Connected := true;
dataset.Active := false;
dataset.CommandText := 'select * from txttable ';
try
dataset.Open;
except
dataset.Active := false;
end;
//读取文本文件
txtstr := trim(EText.Text);
if fileexists(txtstr) then
begin
AssignFile(txtfile,txtstr);
Reset(txtfile);
while not eof(txtfile) do
begin
ReadLn(txtfile,tmpstr);

//从文本中取得字段数据
s := Pos(',',tmpstr);
id := copy(tmpstr,1,s-1); //
delete(tmpstr,1,s);
s := Pos(',',tmpstr);
U_ID := copy(tmpstr,1,s-1); //
delete(tmpstr,1,s);
s := Pos(',',tmpstr);
U_Name := copy(tmpstr,1,s-1); //
delete(tmpstr,1,s);
s := Pos(',',tmpstr);
Num := copy(tmpstr,1,s-1); //
delete(tmpstr,1,s);
s := Pos(',',tmpstr);
L_ID := copy(tmpstr,1,s-1); //
delete(tmpstr,1,s);

//写入数据库
with DataSet do
begin
DataSet.Append;
FieldByName(ID').AsString := id;
FieldByName('U_ID').AsString := U_ID;
FieldByName('U_Name').AsString := U_Name;
FieldByName(Num').AsString := Num;
FieldByName('L_ID').AsString := L_ID ;
Post;
end; // with

end; // while
end;
showmessage('导入数据库完毕');
end;