ComboBox.Items你一直加吗?不清空?
解决方案 »
- Delphi中的关于TImage循环填充两种色块从而达到闪烁效果的问题!
- 新手发帖 DELPHI +BDE +DBF库 关于SQL语法的问题
- form.showmodal是什么意思
- 怎样用DELPHI上传到数据库中一个大一点的图片
- 如何在cxgrid的最下边一行显示记录条数?
- 高分请教如何实现异地售票?
- 有谁知道XP的控件(snpack2.0 for delphi6; snpack2.0 for delphi7)哪里有下载?
- 在窗体上置控件speedbutton和panel,怎样实现将鼠标移上speedbutton时panel显示,鼠标离开speedbutton时panel隐藏?
- 被骗 却有新的领悟 散分
- 做一个嵌套的报表
- 如何在TF1Book里插入图片
- 热键的问题
先清一下试试:
ComboBox.Items.Clear;
改成Combobox.Items.Add(query.fields.fields[0].asstring);
(如果域‘id’是在第一个位置上的话,其他情况依此类推了)
Happy new year!
访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框,选择不同的精确程度,即可以找到你所需要的答案。效果还是可以的。
希望大家帮帮忙!
谢谢!测试:用3个Form即可,第一FORM个上放两个BUTTON,分别调用另两个FORM,另两个FORM上每个
有一个ComboBox即可测试。
query.SQL.Clear;
query.SQL.Add('select * from date ORDER BY id ASC');
query.Active:=true;
query.First;
ComboBox.Items.Clear;
while not query.Eof do
begin
ComboBox.Items.Add(query.fieldbyname('id').asstring);
query.next;
end;
(2)ComboBox.Items.Clear;
我看你的代码,想问你调用另外两个窗体时,你用的是模态窗体还是非模态窗体。调用代码什么样?
begin
ComboBox1.Clear;
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from date ORDER BY id ASC');
query1.Open;
while not query1.Eof do
begin
ComboBox1.Items.Add(query1.fieldbyname('id').asstring);
query1.next;
end;
end;
我测试,确实有东西没有释放掉,造成的!
但怎么解决呢?谢谢大家对我的关心!我是新注册的不知道规矩,分给少了,不能好好感谢大家的好意!
真是过意不去! 只能说谢谢大家了!
Form1 := TForm1.Create(nil);
try
Form1.ShowModal;
finally
Form1.Free;
end;
非模的时候要多注意。
你无法判断是否释放,应该用
if Assigned(Form1) then ...
另外,调用单元关掉外单元窗体时 应该吧 指针付空
如
if (Assigned(Form1)) then
begin
Form1.Free;
Form1 := nil;
end;建议看看<<delphi4 入门到精通>> 这本书,讲的很详细。
这两天较忙,没给分,不好意思!
谢谢大家!