Question

错误提示 [Pascal Error] mddr.pas(62): E2003 Undeclared identifier: 'i'

procedure TF_mddr.BitBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then edit1.Text:=opendialog1.filename else exit; //打开一个外部存在的文件, 记录最后一个被选中的文件的全路径名。默认为空。
combobox1.Items.Clear; //清除combobox的内容
combobox1.Text:=''; //combobox控件内容不为空
listbox1.Items.Clear;
listbox2.Items.Clear;
F_dm.ADOConnection2.close;
F_dm.ADOConnection2.ConnectionString:='Provider=Microsoft.jet.OLEDB.4.0S;Data Source='+trim(edit1.Text)+';Extended Properties="Excel 8.0;HDR=YES;IMEX=1";Persist security Info=false'; //把一个MSSQL的数据库表的记录增加到到excel中
F_dm.ADOConnection2.LoginPrompt:=False;
F_dm.ADOConnection2.open;
combobox1.Items.Clear;
F_dm.ADOConnection2.GetTableNames(Combobox1.Items,true);//取得所有数据表名
for I := 0 to combobox1.Items.Count - 1 do //循环语句
begin
combobox1.items[i]:=copy(combobox1.Items[i],1,length(combobox1.Items[i]-1));//combobox1.items[i]是第二部分的列表框里的某项, 把取得的字段填入下拉列表框中
end;
listbox1.ItemIndex=-1;
listbox2.ItemIedex=-1;
end;

Answer 1

for I := 0 to combobox1.Items.Count - 1 do //循环语句

把这句的 i 声明一下吧。

在 procedure TF_mddr.BitBtn1Click(Sender: TObject); 这句后加
var
i:integer;

Answer 2

什么题啊，说说题意

追问

就这个名单导入哦。