本人想把access数据库里的一个表的一个字段的值加载到combobox组合框里,可是老是不成功,出现下面的错误导致不能运行,各位看看是什么原因??
错误提示:
Build
[Error] Unit1.pas(39): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
下面的是代码:我在标准组件里的设置应该没问题的:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, StdCtrls, DB;type
TForm1 = class(TForm)
DataSource1: TDataSource;
ComboBox1: TComboBox;
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
while not table1.Eof do
begin
ComboBox1.additem(table1.FieldValues['grade'],sender);
table1.MoveBy(1) ;
end;end;
错误提示:
Build
[Error] Unit1.pas(39): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
下面的是代码:我在标准组件里的设置应该没问题的:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, StdCtrls, DB;type
TForm1 = class(TForm)
DataSource1: TDataSource;
ComboBox1: TComboBox;
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
while not table1.Eof do
begin
ComboBox1.additem(table1.FieldValues['grade'],sender);
table1.MoveBy(1) ;
end;end;
解决方案 »
- rxrichedit如何保存成RTF
- 关于在Timage上画线的问题,奇怪
- 送分了!!! 布局设计
- ★★★○○○如何同时实现无标题栏且可以拖动还具有PopMenu功能的窗体?○○○★★★
- 还是论坛关闭前的问题,400分求两本书!!!
- 有关控制程序执行的脚本,或相关的资料??
- 关于XP与2000系统EXCEL导出的超级难题,谁能解决(在线等)
- 难,难,难!!!!高手请进呀!
- 当保存为已存在的EXCEL文件时,系统会有个确认框,是否覆盖该文件,如果选择不覆盖时???处就会报错,请问句前面应该加什么判断条件呀
- 用程序让机器重起。怎么实现(delphi)?
- 在com+类中怎么样定义一个返回数据集的函数?
- delphi开发三层结构,客户端访问应用服务器出现RPC服务器不可用怎么回事?
还有个问题,代码怎么改出现的combobox组合框不会出现它自身的名称ComboBox1?
谢谢了哈。