Какой компонент использовать??

[{Shadowevil}]

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

Добавление итема

sListBox1.AddItem(firmn, TObject(Query10.RecNo));
вместо          
sListBox1.AddItem(firmn, nil);

Локализация записи при прорисовке

Query10.RecNo:=Integer(sListBox1.Items.Objects[Index]);

и из записи брать нужные значения

Сделал так, а результат тот же ..он тут

Query10.Open;
Query10.RecNo:=Integer(sListBox1.Items.Objects[Index]);

постоянно берет 1-ю запись при прорисовке

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

Что мешало просто DBGrid использовать, показывая в одну строку информацию?

ну как что, то что мне нужна не одна строка, а N-ое число много строчных Item

[Аватар]

Зачем Query10 открывать заново? Вы его открыли при заполнении итемов и не надо закрывать. Закройте по выходу из проги. А еще лучше покажите текст программы

[{Shadowevil}]

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

Зачем Query10 открывать заново? Вы его открыли при заполнении итемов и не надо закрывать. Закройте по выходу из проги. А еще лучше покажите текст программы

пробовал не закрывать, но эффект тот же, он Integer(sListBox1.Items.Objects[Index]) всегда берет =1 поэтому так и выходит (
Текст программы показать не получится, ибо слишком большой (~7000стр.)
Могу отдельно показать обработку событий

[Аватар]

всегда берет =1

Это только значит, что пишете туда единицу для всех итемов при AddItem или с Index что-то

[{Shadowevil}]

Обработчик клика по TreeView после которого у меня и должны загрузиться итемы в листбокс:

procedure TfrmMain.TreeView3Click(Sender: TObject);
var
  rid, id, ind, i, h: integer;
begin
  sListBox1.Items.Clear;
  ind:=0;
  i:=1;
//  LBind:=0;
//  h:=0;
  NCity:=gisCbCity.Text;
  CITYID:=GetCityId(NCity);
  rid:=TreeView3.Selected.SelectedIndex;
  Query11.Close;
  Query11.SQL.Clear;
  Query11.SQl.add('SELECT * FROM firm_group WHERE cid=:cityid AND rid=:rid');
  Query11.ParamByName('cityid').value:=CITYID;
  Query11.ParamByName('rid').value:=rid;
  Query11.Open;
  While Not Query11.Eof do
   begin
    ZQuery1.Close;
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('SELECT * FROM address WHERE cid=:cid AND fid=:fid');
    ZQuery1.ParamByName('cid').Value:=CITYID;
    ZQuery1.ParamByName('fid').Value:=Query11.FieldByName('fid').AsInteger;
    ZQuery1.Open;
    While Not ZQuery1.Eof do
     begin
          firmn:=ZQuery1.FieldByName('sfn').AsString;
          ZQuery1.RecNo:=i;
      //    LBadr:=Query10.FieldByName('allinfo').AsString;
          sListBox1.AddItem(firmn, TObject(ZQuery1.RecNo));
      ZQuery1.Next;
     end;
//    ZQuery1.Close;
    Query11.Next;
//    sListBox1.Repaint;
   end;
  Query11.Close;

  sListBox1.Items.BeginUpdate;
  for i:=0 to sListBox1.Items.Count-1 do begin
    sListBox1.ItemIndex:=i;
    sListBox1Click(sListBox1);
  end;
  sListBox1.ItemIndex:=0;
  sListBox1.Items.EndUpdate;
end;

ZQuery1 вместо Query10 поменял

Обработчик DrawItem:

procedure TfrmMain.sListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  xColor: TColor;
  x, i: integer;
begin
  if sListBox1.Count=0 then Exit;

  ZQuery1.RecNo:=Integer(sListBox1.Items.Objects[Index]); //всегда 1 :(

  if (odSelected in State) and sListBox1.Focused then xColor:=clActiveCaption
  else if odSelected in State then xColor:=clBtnFace
  else xColor:=clWindow;
  sListBox1.Canvas.Brush.Color:=clWindow;
  sListBox1.Canvas.FillRect(Rect);

  if (odSelected in State) and Control.Focused then sListBox1.Canvas.Font.Color:=clInactiveCaption
  else sListBox1.Canvas.Font.Color:=clBlack;

  sListBox1.Canvas.Font.Size:=8;
  sListBox1.Canvas.Font.Style:=sListBox1.Canvas.Font.Style + [fsBold];
  x:=sListBox1.Canvas.Font.Size;
  sListBox1.Canvas.TextRect(Rect, Rect.Left+2,Rect.Top, sListBox1.Items.Strings[Index]);
  sListBox1.Hint:=sListBox1.Items.Strings[Index];
  sListBox1.ShowHint:=true;

  if (odSelected in State) and Control.Focused then sListBox1.Canvas.Font.Color:=clInactiveCaption
  else sListBox1.Canvas.Font.Color:=clGray;
  sListBox1.Canvas.Font.Size:=8;
  sListBox1.Canvas.Font.Style:=sListBox1.Canvas.Font.Style - [fsBold];
  sListBox1.Canvas.TextOut(Rect.Left+2, Rect.Top+x+6, '   '+ZQuery1.FieldByName('allinfo').AsString);
  sListBox1.Canvas.TextOut(Rect.Left+2, Rect.Top+x+22, '     '+'Телефон');
end;

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

[Аватар]

Сделайте один Query по запросу, из address добавте еще поля (если поля allinfo мало). И только с этим Query работайте, а с двумя слишком хитромудро

SELECT F.*,A.allinfo 
  FROM firm_group F
    LEFT JOIN address A ON A.fid=F.fid
  WHERE F.cid=:cityid AND F.rid=:rid

[{Shadowevil}]

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

Сделайте один Query по запросу, из address добавте еще поля (если поля allinfo мало). И только с этим Query работайте, а с двумя слишком хитромудро

SELECT F.*,A.allinfo 
  FROM firm_group F
    LEFT JOIN address A ON A.fid=F.fid
  WHERE F.cid=:cityid AND F.rid=:rid

Оо! Спасибо большое, добавил еще AND A.cid=:cityid и работает как надо
Два запроса делал потому что в сложных запросах не силен, а тут оказывается из-за второго запроса и была вся бяка
А третью таблицу точно также к ним можно подключить?

[Аватар]

Насчет точно также не знаю, нужно смотреть конкретную ситуацию

[{Shadowevil}]

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

Насчет точно также не знаю, нужно смотреть конкретную ситуацию

А нельзя допустим написать

SELECT F.*,A.allinfo,FR.Tel 
  FROM firm_group F
    LEFT JOIN address A ON A.fid=F.fid LEFT JOIN firm FR ON FR.fid=F.fid
  WHERE F.cid=:cityid AND F.rid=:rid AND ...

или как-нибудь так?

[Аватар]

Если со связями в таблицах все нормально, то можно