procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ListBox1.Items.clear;
if not Table1.Active then
Table1.open;
for i:=0 to Table1.FieldCount-1 do
begin
ListBox1.Items.Add(Table1.Fields[i].fieldname);
end;end;
var
i:integer;
begin
ListBox1.Items.clear;
if not Table1.Active then
Table1.open;
for i:=0 to Table1.FieldCount-1 do
begin
ListBox1.Items.Add(Table1.Fields[i].fieldname);
end;end;
解决方案 »
- devexpress中的dxFlowChart如何使用?
- 急求两个Form之间传递参数的方法,如做登录对话框,除全局变量之处,应该还有更好的方法的.详情见内容.
- 请教一个DBGridEh的问题
- 画动态波形
- 如何使用DateTimePicker,实现与数据库中日期的关联?
- 请问如何编写可适应不同分辩率及显示字体设定的界面
- 奇怪的问题,Edit6.Text自动清空??
- 关于网络的问题
- 请问如何一劳永逸地在程序发生exception时都调用某一函数,而不用在每一个form中都写如下代码application.onexception=...
- 谢谢KSXY的帮助!在ACCESS库中我怎么找不到有关图象的字段?
- 如何在程序中控制TLISTVIEW的滚动
- 怎么在程序中设置window的任务栏为自动隐藏??
begin
if not Table1.Active then
Table1.open;
Table1.GetFieldNames(Listbox1.Items);
end;
可以得到字段列表。
您好:
感谢您的来信,我想问一下,具体怎么做,你能给一个例子给吗?最好能告诉怎么能在delphi提供的demos中比较快的找到我想要的例子,谢谢