请问一下不同的对象在一个里面怎么定义一个过程或函数？

Question

这个下拉框的时间要经常用到怎么办？
procedure Tsb_jbzl_cx.Edit2Change(Sender: TObject);
begin
   str3:='';
   if trim(edit2.Text)<>'' then
   begin
       combobox10.Enabled:=true;
   end
   else
   begin
       combobox10.Enabled:=false;
   end;
   if combobox4.Text='模糊查询'then
   begin
     str3:=str3+i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
   end
  else
  begin
     str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.text)+'''';
  end;
end;//设置查询内容 2++++++++++++++++++++++++++++++++++++++++++++++++

Answer 1

你新建一個unit即file->new->unit
然后把它寫進去別存.
如果你以后要用到只要在該project加入該單無.即project->add to project

Answer 2

你新建一個unit即file->new->unit然后把它寫進去另存.
如果你以后要用到只要在該project加入該單無.即project->add to project

Answer 3

COMBOBOX1 COMBOBOBX2 EDIT1 COMBOBOX9
COMBOBOX3 COMBOBOBX4 EDIT2 COMBOBOX10
COMBOBOX5 COMBOBOBX6 EDIT3
这是个多条件查询，1 3 5 为条件
2 4 6为= > < <> >= <= LIKE
EDIT1 2 3为输入的内容
COMBOBOX9 10 为逻辑关系
STR1 3 5为每一行的字符串变量

Answer 4

加入一个按钮，按钮click中：
1 str:='';
2 先判断COMBOBOX1 COMBOBOBX2 EDIT1 是不是为空，不为空，则建立SQL语句，
3 str:= str+ combobox1.text + combobox2.text+ ''''+edit1.text+'''';
4 再判断 COMBOBOX9 COMBOBOX3 COMBOBOBX4 EDIT2 是不是为空，不为空，则建立SQL语句