Данные из ListBox

[demon-sheff]

Обошел все это так:

    
procedure TMain.SpeedButton1Click(Sender: TObject);
    var i:integer;
begin
for i := 0 to ListBox1.Items.Count - 1 do 
      begin
  ClientDataSet3.Close;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add('SELECT DISTINCT req.REQUEST_NUMBER, RPO.CAD_NUMBER PREV_OBJ, RNO.CAD_NUMBER NEW_OBJ');
  SQLQ.SQL.Add('FROM REQUEST.REQUEST req');
  SQLQ.SQL.Add('LEFT JOIN REQUEST.REQUEST_PREV_OBJ rpo ON RPO.REQUEST_ID = req.id ');
  SQLQ.SQL.Add('LEFT JOIN REQUEST.REQUEST_NEW_OBJ rno ON RNO.REQUEST_ID = req.id ');
SQLQ.SQL.Add('WHERE rpo.CAD_NUMBER IN '''+Edit1.Text+'''');
SQLQ.SQL.Add('OR RNO.CAD_NUMBER IN '''+Edit1.Text+'''');
  SQLQ.Open;
  ClientDataSet3.Open;
   id1 := SQLQ.Fields[0].AsInteger;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add( inttostr(id1));
  SQLQ.Open;
 end;
end;

и добавил еще одну процедуру:

procedure TMain.ListBox1Click(Sender: TObject);
begin
  Edit1.Text:= ListBox1.Items[ListBox1.ItemIndex];
end;

только вот приходится на каждую строчку нажимать, а цикл так и не работает

[Аватар]

Не правильно. И на пост #10 так и не ответил

[demon-sheff]

Сообщение от Аватар

Не правильно. И на пост #10 так и не ответил

в мемо содержится текс типа:
45:26:050210:1610
45:25:070109:572
45:25:070109:573

тип поля varchar

[Аватар]

  s:='';
  for i:=0 to ListBox1.Items.Count - 1 do begin
    if i>0 then s:=s+',';
    s:=s+Format('''%s''',[ListBox1.Items[i]]);
  end;
  // и в запросе
  ...
  SQLQ.SQL.Add(Format('WHERE rpo.CAD_NUMBER IN (%s)',[s]);
  SQLQ.SQL.Add(Format('OR RNO.CAD_NUMBER IN (%s)',[s]);
  ...
  // тогда SQLQ вернет все записи удовлетворяющие заданному условию

[demon-sheff]

Сообщение от Аватар

  s:='';
  for i:=0 to ListBox1.Items.Count - 1 do begin
    if i>0 then s:=s+',';
    s:=s+Format('''%s''',[ListBox1.Items[i]]);
  end;
  // и в запросе
  ...
  SQLQ.SQL.Add(Format('WHERE rpo.CAD_NUMBER IN (%s)',[s]);
  SQLQ.SQL.Add(Format('OR RNO.CAD_NUMBER IN (%s)',[s]);
  ...
  // тогда SQLQ вернет все записи удовлетворяющие заданному условию

СПАСИБО ОГРОМНОЕ!!! ПОМОГЛО ОЧЕНЬ только вот здесь чуть чуть подправил

  SQLQ.SQL.Add(Format('WHERE rpo.CAD_NUMBER IN (%s)',[s]));
  SQLQ.SQL.Add(Format('OR RNO.CAD_NUMBER IN (%s)',[s]));

тем самым можно тему закрыть!