조건이 어떤식으로 변한다는건가요?
select *
  from 테이블명
where 비교할필드 in ('1',2'...)

이런식으로 하시면 되는데...  근데 in이 인덱스를 타던가??? 안타던걸로 기억이...^^

즐프하세요...

답변 감솨함돠..

소스가 아래와 같은데..

   aaa :=  ValueListEditor1.Values[Valuelisteditor1.Keys[1]];

  with DM.qry_rtn  do begin
    close;
    sql.Clear;
    sql.Add('select * from tb_test');
    sql.Add('where code in (:code)');
    parambyname('code').AsString := aaa;
    open;
    first;
  end;  

이상하게도..

조건의 개수가 하나일 땐 정상인데..

두 개 이상이 되면..

결과값이 없네여. ㅠ.ㅠ

:code 대신에..

실제 값..

01, 02 등을 입력하면..

값이 잘 나오는데..

파라미터를 잘못 쓰셨군여..

  두개이상 쓰실려면, 파라미터를 두개를 만들어 사용해야 합니다.

  code in (:code1, :code2)

  님이 하신대로 함..
  code in (:code) => code in ('1, 2') 이값이죠..
  그러니 당연히 검색이 안되는 것입니다..


   번거롭다면..

  sql_str := format('select * from 테이블 where code in (%s)', ['1, 2']);
  이런 방법두 있겠네요..ㅎㅎ

제가 제대루 설명을 못했네여..

죄송^^

다시  설명을 하자면..

  aaa :=  ValueListEditor1.Values[Valuelisteditor1.Keys[1]];
// Valuelisteditor이라는 컴포넌트안에 들어 있는 값을 읽어 aaa 이라는

string 변수에 대입합니다. 이 때 aaa에 들어가는 이 값은..

01  아님 02 그것두 아님 03 일 수도 있구여...

01, 02, 03 이 될 수도 있답니다.

다시 한 번 정리하자면..

aaa := 01

혹은 aaa := 02 혹은 aaa := 03

혹은 aaa := 01, 02 혹은 aaa := 02, 03

혹은 aaa := 01, 03

또는 aaa := 01, 02, 03

이렇게 될 수도 있구여..

쩝..

제가 설명을 하면서도 정리가 잘 안되는군여..

근데..

여기에다..

   with qry  do begin
    close;
    sql.Clear;
    sql.Add('select * from cd_equipkind');
    sql.Add('where code in (01,02)');
    open;
    first;
  end;  

이런 식으로 직접 입력을 하면..

결과값이 나오거든여..

근데..

aaa 값에 01, 02를 넣어서..

   aaa :=  '01,02'
  with DM.qry_rtn  do begin
    close;
    sql.Clear;
    sql.Add('select * from cd_equipkind');
    sql.Add('where code in (:code)');
    parambyname('code').AsString := aaa;
    open;
    first;
  end;  

이렇게 하면 값이 안 나온단 뜻이였답니다. ㅠ.ㅠ

procedure TForm1.Button1Click(Sender: TObject);
var
  Code : String;
begin
  Code := '''01''' + ',' + '''02''' + ',' + '''03''';
  ShowMessage(Code);
end;


위에 식으로 포문으로 원하는만큼 돌리면서 변수를 만들면 되겠네요...^^

즐프하세요...