读文本文件到数据库

Question

1.文本文件中的空行跳过不读.
2.读文本文件中的指定字符到数据库，规定为数值型,保留两位小数点.代码如何写？

Answer 1

var
  fl : system.text;
  strLine : string;
begin
  assignfile(fl,'yourfilename');
  reset(fl);
  while not eof(fl) do
  begin
    readln(fl,strLine);
    if strLine <> '' then
    begin
      //解析你自己需要的数据，并做处理.
      //将数据插入道数据库 
    end;
  end;
  closefile(fl);
end;

Answer 2

TBlobField(Table1.FieldByName('Memo')).LoadFile('文件名');这是最简单的方法.