delphi 文本文档导入到sql

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;

type
TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

F: Text; //TextFile 和 Text 是一样的
FileName: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
OpenDialog1.Execute;
AssignFile(F,OpenDialog1.FileName);
Reset(F); //只读打开

Memo1.Clear;
   with adoquery1 do
       begin
         close;
         sql.Clear;
         sql.Add('delete from ceshi');
         execsql;
       end;
while not Eof(F) do
begin
    Readln(F, s);
    
            with adoquery1 do
       begin
         close;
         sql.Clear;
         sql.Add('insert into ceshi(one) values(:a)');
         parameters.ParamByName('a').Value:=s;
         execsql;
       end;
      // next;
end;

CloseFile(F);
end;

end.