请教问题。

Question

如何把
case combobox1.itemindex of
 0:sqltxt:='select * from a';
 1:sqltxt:='select * from b';
 ..............
end;
写成一个独立的过程，以便在其它事件过程中调用？还有就是怎样在case是给两个变量赋值？就是
case combobox1.itemindex of
 0:sqltxt:='select * from a';
   sqltxt1:='select * from aa';
 1:sqltxt:='select * from b';
   sqltxt1:='select * from bb';
................
(我这样是不行的，不知应该如何？)

Answer 1

第一：procedure Do(iMode : Integer)
第二
beginend

Answer 2

1、function getsql(itemindex: Integer): string;
2、case ... of
  0: begin
       i := 1;
       j := 2;
     end;
  1: k := 3;
  else begin
    some 语句
  end;

Answer 3

调用语句如何写？是否goto 过程？

Answer 4

调用 例：query1.sql.text:=getsql(1);

Answer 5

procedure SetText();
begin
  case Form1.Combobox1.ItemIndex of
    0: begin
         sqltxt:='select * from a';
         sqltxt1:='select * from aa';
       end;
    1: begin
         sqltxt:='select * from b';
         sqltxt1:='select * from bb';
       end;
    ..............
end;