我有一个程序,当单击一个位按钮时,它会打开一个对话框来加载一些文件,并将其添加到 AdoQuery (AQSource1) 中。当我添加一些文件时,出现此错误:
“多步操作生成器错误。检查每个状态值。”
仅当我添加选择的多个文件时。但是,如果我按文件选择一个文件,则根本没有错误......但有时如果我选择多个文件,这个错误也不会出现......对我来说有点困惑......
如何解决这个问题?以简单的方式...
PS:我使用的是 Windows 7 Pro SP1 64bit,Embarcadero Delphi 2010
procedure TFMain1.btImgLoad1Click(Sender: TObject);
var i : integer;
strFilename : string;
begin
if OpenDialog1.Execute then
begin
// Add selected file to DBase and show it on DBGrid
for i := 0 to openDialog1.Files.Count-1 do
begin
// ShowMessage(openDialog1.Files[i]);
strfilename := openDialog1.Files[i];
AQSource1.Append;
AQSource1source_fileurl.Value := strFilename;
AQSource1source_filename.Value := ExtractFileName(strfilename);
AQSource1source_dateadd.Value := date();
AQSource1source_timeadd.Value := Time();
AQSource1.Post;
AQSource1.Close;
AQSource1.Open;
end;
end;
end;