一段小程序,但是有错误procedure TForm1.Button1Click(Sender: TObject);
var
fn: string;
begin
if OpenDialog1.Execute then
begin //打开文件
fn := ExtractFileName(OpenDialog1.FileName);
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False); //创建OLE对象
OleContainer1.SaveToFile('tmp'); //将OLE数据存入临时文件
Table1.Append;
Table1FileName.AsString := fn;
Table1ABlob.LoadFromFile('tmp'); //将OLE数据存入数据库
这两句是什么意思??????????????? Table1.post;
end;
end;[Error] Unit1.pas(39): Undeclared identifier: 'Table1FileName'
[Error] Unit1.pas(40): Undeclared identifier: 'Table1ABlob'
var
fn: string;
begin
if OpenDialog1.Execute then
begin //打开文件
fn := ExtractFileName(OpenDialog1.FileName);
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False); //创建OLE对象
OleContainer1.SaveToFile('tmp'); //将OLE数据存入临时文件
Table1.Append;
Table1FileName.AsString := fn;
Table1ABlob.LoadFromFile('tmp'); //将OLE数据存入数据库
这两句是什么意思??????????????? Table1.post;
end;
end;[Error] Unit1.pas(39): Undeclared identifier: 'Table1FileName'
[Error] Unit1.pas(40): Undeclared identifier: 'Table1ABlob'
'Table1ABlob'
未声明吧。
但是前提是要在Tabel中加入字段对象
但是前提是要在Tabel中加入字段对象
应该如何加?
'Table1FileName'
'Table1ABlob'
未声明