Загрузка таблицы в память

[Аватар]

А активизацию ZQuery3 вынесли из прорисовки канвы? Напоминаю - он должен быть активизирован только один раз

[{Shadowevil}]

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

А активизацию ZQuery3 вынесли из прорисовки канвы? Напоминаю - он должен быть активизирован только один раз

да, конечно, в прорисовке осталось только

if ZQuery3.Locate('cid;fid',VarArrayOf([ZQuery1.FieldByName('cid').AsInteger,ZQuery1.FieldByName('fid').AsInteger]),[]) then
    while not ZQuery3.eof and
          (ZQuery3.FieldByName('cid').AsInteger=ZQuery1.FieldByName('cid').AsInteger) and
          (ZQuery3.FieldByName('fid').AsInteger=ZQuery1.FieldByName('fid').AsInteger) do
          begin

    str:=ZQuery3.FieldByName('who').AsString;
    if str='' then str:=' ' else str:=str+': ';
    st:=st+str+'8 '+'('+ZQuery3.FieldByName('code').AsString+') '+ZQuery3.FieldByName('phone').AsString+'; ';
    ZQuery3.Next;
   end;

[Аватар]

1. Циклы подобного рода

for k:=1 to i-1 do
  st2:=st2+st[k];

можно заменить одной функцией Copy
2. Вместо ZQuery3 можно попробовать ADOTable с индексом и поиск не Locate, а по индексу методом Seek. Он точно будет быстрее Locate
3. Можно информацию из ZQuery3 выгрузить в динамический массив символьных строк, в каждой из которых уже сформирован список телефонов. Индекс строки массива должен совпадать с ZQuery1.RecNo и при прорисовке просто по этому индексу дергать нужную строку. Если телефонов нет, то должна быть пустая строка с соответствующим индексом в массиве

[{Shadowevil}]

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

1. Циклы подобного рода

for k:=1 to i-1 do
  st2:=st2+st[k];

можно заменить одной функцией Copy
2. Вместо ZQuery3 можно попробовать ADOTable с индексом и поиск не Locate, а по индексу методом Seek. Он точно будет быстрее Locate
3. Можно информацию из ZQuery3 выгрузить в динамический массив символьных строк, в каждой из которых уже сформирован список телефонов. Индекс строки массива должен совпадать с ZQuery1.RecNo и при прорисовке просто по этому индексу дергать нужную строку. Если телефонов нет, то должна быть пустая строка с соответствующим индексом в массиве

вот, именно 3-м способом я и хотел попробовать сделать, только вот как реализовать это пока не знаю

[Аватар]

var xTelefons: array of String;
    xCount: Integer;
...
  ZQuery1.First;
  while not ZQuery1.Eof do begin
    s:='';
    if ZQuery3.Locate('cid;fid',VarArrayOf([ZQuery1.FieldByName('cid').AsInteger,ZQuery1.FieldByName('fid').AsInteger]),[]) then
      while not ZQuery3.eof and
            (ZQuery3.FieldByName('cid').AsInteger=ZQuery1.FieldByName('cid').AsInteger) and
            (ZQuery3.FieldByName('fid').AsInteger=ZQuery1.FieldByName('fid').AsInteger) do begin
        s:=s+...
        ZQuery3.Next;      
      end;
    Inc(xCount);
    SetLength(xTelefons,xCount);
    xTelefons[xCount-1]:=s;
    ZQuery1.Next;
  end;

Индекс у xTelefons начинается с 0. RecNo у ZQuery1 не помню. Или с 0 или с 1. Если с 1, то к массиву обращение с RecNo-1

[{Shadowevil}]

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

var xTelefons: array of String;
    xCount: Integer;
...
  ZQuery1.First;
  while not ZQuery1.Eof do begin
    s:='';
    if ZQuery3.Locate('cid;fid',VarArrayOf([ZQuery1.FieldByName('cid').AsInteger,ZQuery1.FieldByName('fid').AsInteger]),[]) then
      while not ZQuery3.eof and
            (ZQuery3.FieldByName('cid').AsInteger=ZQuery1.FieldByName('cid').AsInteger) and
            (ZQuery3.FieldByName('fid').AsInteger=ZQuery1.FieldByName('fid').AsInteger) do begin
        s:=s+...
        ZQuery3.Next;      
      end;
    Inc(xCount);
    SetLength(xTelefons,xCount);
    xTelefons[xCount-1]:=s;
    ZQuery1.Next;
  end;

Индекс у xTelefons начинается с 0. RecNo у ZQuery1 не помню. Или с 0 или с 1. Если с 1, то к массиву обращение с RecNo-1

Большое спасибо, попробую сделать

*****************************

Сделал) сейчас вообще все летает как доктор прописал)) Аватар спасибо огромное за помощь!