안녕하세요....
어떠한 첫번째 프로시져 에서 var 로 함수 선언을 했습니다.
그런데 다른 프로시저에서 첫번째프로시져 에서 선언한 함수를
가져오려면 어떻게 해야 하나요?
제가 짠 소스는
// 첫번째 프로시저
procedure TFormSearch.ComboBoxChange(Sender: TObject);
var
andor:string;    // 바로 이함수 입니다...
begin
   case ComboBox.ItemIndex of
   0 : // 영화일 경우
     begin
        ComboBox1.Items.Clear;
        ComboBox1.Enabled := True;
        ComboBox1.Items.Add('SF');
                        :
        andor := ' MovieDB.db ';     // 0 일경우 MovieDB 파일 선택
     end;
   1 : // 프로그램/유틸일 경우
     begin
        ComboBox1.Items.Clear;
        ComboBox1.Enabled := True;
        ComboBox1.Items.Add('OS');
                        :
        andor := ' UtilDB.db ';         // 1 일경우 UtilDB 파일 선택
     end;
     end;  // case end
// 두번째 프로시저
procedure TFormSearch.ButtonNextClick(Sender: TObject);
var
sqlstr:string;
begin
     sqlstr := 'select * from' + andor + 'where Category='''+
               ComboBox1.Items[ComboBox1.ItemIndex]+
               ''' Order by Posision';
     QuerySearch.Close;
     QuerySearch.SQL.Clear;
     QuerySearch.SQL.Add(sqlstr);
     QuerySearch.Open;
end;
이렇게 했는데 안되더라구요
제 의도는 콤보박스의 선택에 의해서 DB 파일이 바뀌는 것인데....
그래서 두번째에도 andor:string; 을 해보니
andor에는 공백으로 들어가더라구여...
해결할 방법이 있을까여?