Данные из ListBox

[demon-sheff]

Доброе время суток программисты! Подскажите пожалуйста начинающему программисту как написать следующее:
у меня имеется запрос

procedure TMain.SpeedButton1Click(Sender: TObject);
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;

не могу понять как сделать, чтобы данные подставлялись не из Edit1, а через ListBox1 при условии что данные загружены в ListBox1

Попробовал сделать через Memo1, получилось следующее:

procedure TMain.SpeedButton1Click(Sender: TObject);
    var i:integer;
begin
   for I := 0 to Memo1.Lines.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 '''+Memo1.Lines.Text+'''');
  SQLQ.SQL.Add('OR RNO.CAD_NUMBER IN '''+Memo1.Lines.Text+'''');
  end;
  SQLQ.Open;
  ClientDataSet3.Open;
   id1 := SQLQ.Fields[0].AsInteger;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add( inttostr(id1));
  SQLQ.Open;
end;

но теперь выдает ошибку:

[Stilet]

Просто :'

 WHERE rpo.CAD_NUMBER IN '+Edit1.Text

Числа не окантовываются ковычками.

[demon-sheff]

Сделал как вы сказали

 procedure TMain.SpeedButton1Click(Sender: TObject);
    var i:integer;
begin
for i := 0 to Memo1.Lines.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 '+Memo1.Lines.Text);
  SQLQ.SQL.Add('OR RNO.CAD_NUMBER IN '+Memo1.Lines.Text);
end;
SQLQ.Open;
  ClientDataSet3.Open;
   id1 := SQLQ.Fields[0].AsInteger;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add( inttostr(id1));
  SQLQ.Open;
end;

Выдает ошибку??? Что делать?

[Аватар]

IN имеет формат для числового поля ... IN (1,5,8,55,...)
для текстового поля ... IN ('1','fdc','45H',...)

[demon-sheff]

я так понял что надо вот так?

procedure TMain.SpeedButton1Click(Sender: TObject);
   var i:integer;
   a:string;
begin
  a:=Memo1.Lines.Text;
  for i := 0 to Memo1.Lines.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 ''+a+''');
  SQLQ.SQL.Add('OR RNO.CAD_NUMBER IN ''+a+''');
  SQLQ.Open;
  ClientDataSet3.Open;
  id1 := SQLQ.Fields[0].AsInteger;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add( inttostr(id1));
  SQLQ.Open;
  end;
end;

тогда в этом случае выдает предыдущую ошибку ''''is not a valid integer value.

[Аватар]

Читай раз 100 #4 и хорошо подумай

[demon-sheff]

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

Читай раз 100 #4 и хорошо подумай

Прочитал, подумал, решил так:

  SQLQ.SQL.Add('WHERE rpo.CAD_NUMBER IN ''+'a'+''');
  SQLQ.SQL.Add('OR RNO.CAD_NUMBER IN ''+'a'+''');

не помогло

[Аватар]

А вот возьми посмотри, что в a находится и сравни с тем, что должно там находиться. И кажется, что в процессе думания мозговое вещество слабо активизировалось

[demon-sheff]

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

А вот возьми посмотри, что в a находится и сравни с тем, что должно там находиться. И кажется, что в процессе думания мозговое вещество слабо активизировалось

я только начинаю программировать, поэтому не все знаю: я так понимаю надо нужно перевести

     procedure TMain.SpeedButton1Click(Sender: TObject);
    var a,i:integer;
begin
With Memo1 do
for i := 0 to Memo1.Lines.Count - 1 do a[i]:=StrToIntDef(Lines[i],0);
      begin

вот так да?

[Аватар]

Покажи, что в Memo находится. И заодно какой тип полей CAD_NUMBER