unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, CheckLst;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Table1: TTable;
    CheckListBox1: TCheckListBox;
    Button3: TButton;
    Button2: TButton;
    Query1: TQuery;
    Database1: TDatabase;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
{$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
  var i,nCnt,ntmpPos:integer;
      ctmpStr:string;
      t1:TDateTime;
begin
  table1.Close;
  table1.EmptyTable;     // delete all records
  table1.Open;
  table1.CachedUpdates := true;
  t1 := now;      with table1 do
    begin
      for i:=1 to CheckListBox1.Items.Count do
        begin
          try
            nCnt:=1;
            try
              if CheckListBox1.Checked[i] then
                begin
                  ctmpStr := CheckListBox1.Items[i];
                  ntmpPos := AnsiPos(' ',ctmpStr);
                  AppendRecord([Copy(ctmpStr,1,ntmpPos-1),Copy(ctmpStr,ntmpPos 1,Length(ctmpStr))]);
                end;
            except
            end;
            if nCnt =1000 then //¨C1000µ§commit¤@¦¸
              begin
                CommitUpdates;
                nCnt:=0;
              end;
            Inc(nCnt);
          finally
            CommitUpdates;
          end;
        end;
    end;
  Label2.Caption := floatToStr((now-t1)*86400);
end;    procedure TForm1.Button3Click(Sender: TObject);
  var i,ntmpPos:integer;
      ctmpStr:string;
      t1:TDateTime;
begin
  table1.Close;
  table1.EmptyTable;
  table1.open;
  t1 := now;
  for i:=0 to CheckListBox1.Items.Count-1 do
    begin
      if CheckListBox1.Checked[i] then
        begin
          ctmpStr := CheckListBox1.Items[i];
          ntmpPos := AnsiPos(' ',ctmpStr);
          table1.Append;
          table1.Fields[0].AsString := Copy(ctmpStr,1,ntmpPos-1);
          table1.Fields[1].AsString := Copy(ctmpStr,ntmpPos 1,Length(ctmpStr));
          table1.Post;
        end;
    end;
  Label3.Caption := floatToStr((now-t1)*86400);
  table1.close;
end;    procedure TForm1.FormActivate(Sender: TObject);
  var i:integer;
begin
  for i:=0 to checklistbox1.Items.Count-1 do
    checkListBox1.Checked[i] := true;
end;    procedure TForm1.Button2Click(Sender: TObject);
  var i,nCnt,ntmpPos:integer;
      ctmpStr,ctmpSql:string;
      t1:TDateTime;
begin
  table1.Close;
  table1.EmptyTable;     // delete all records
  table1.Open;
  Database1.Open;
  Query1.CachedUpdates := true;
  t1 := now;      try
    if Database1.InTransaction then
      Database1.Rollback;
    Database1.StartTransaction;
    nCnt:=1;
    for i:=0 to CheckListBox1.Items.Count-1 do
      begin
        if CheckListBox1.Checked[i] then
          begin
            ctmpStr := CheckListBox1.Items[i];
            ntmpPos := AnsiPos(' ',ctmpStr);
            ctmpSql := 'INSERT INTO ZZZ1 VALUES('''     // for SQL server -> into dbo.ZZZ1
                       Copy(ctmpStr,1,ntmpPos-1)   ''','''
                       Copy(ctmpStr,ntmpPos 1,Length(ctmpStr))   ''')';
            Database1.Execute(ctmpSql);
          end;
        if nCnt =1000 then //¨C1000µ§commit¤@¦¸
          begin
            try
              Database1.Commit;
              nCnt:=0;
            except
              Database1.Rollback;
            end;
          end;
        Inc(nCnt);
      end;
  finally
    try
      Database1.Commit;
    except
      Database1.Rollback;
    end;
  end;      Label1.caption := floatToStr((now-t1)*86400);
end;    end.
[/code]    ～～～Delphi K.Top討論區站長～～～