Question

[delphi]请问大家，参数combobox1.text没有默认值,换成sSkinmanager1.name也是参数没有默认值，怎么办？

procedure Tskin.sButton2Click(Sender: TObject);
begin
dm.ADOQuery1.active := false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.add('UPDATE skin set skinname = combobox1.text WHERE num = 1') ;
dm.ADOquery1.active := true;
end;

Answer 1

不太懂你什么意思，用combobox1.text := '默认皮肤'; 应该就可以了。
还有你的sql 部队，应改为 ：'UPDATE skin set skinname = '+combobox1.text+ ' WHERE num = 1'， 你本来那样sql得不到combobox的参数的。

Answer 2

不是很明白你问什么

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Text := combobox1.Items[你需要设置成默认值的itemindex]; //itemindex =-1,0,1,2,3...
end;