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

[{Shadowevil}]

Здравствуйте! Подскажите пожалуйста ответ. У меня есть БД из нескольких таблиц, возможно ли загрузить одну из таблиц в оперативную память чтобы сократить время обращения к ее данным? Я почитал что есть такая вещь как TBucketList с помощью которой можно имитировать ассоциативный массив, может кто нибудь встречался с такой проблемой?

[alexiz]

Сообщение от {Shadowevil}

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

Смотря какая там таблица. Базы данных тоже не зря придумывали.
Однако, если таблица небольшая (примерно до 1000 записей), конечно можно. Например RxMemoryData компонент умеет прочитать данные из Датасета в свой буфер и потом изображать, что он и есть Датасет со всеми положенными свойствами, БД при этом далее не нужна. (Библиотека Rx).

[Аватар]

Что-то не пойму проблемы. Данные активизированных ADOQuery или ADOTable и так находятся в памяти. Доступ к данным конечно не такой, как к массиву в памяти. Или вам нужен массив из Record-ов с доступом по индексу? Или проблема в доступе к данным после закрытия DataSet? Если вы данные каким-то образом перетяните в массив, то по памяти почти не сэкономите. По скорости доступа можно будет сэкономить, если загрузка в реальный массив и доступ по индексу, который кстати и знать нужно будет. В противном случае существенной экономии не получите, даже воспользовавшись компонентом типа RxMemoryData или ему подобным

[{Shadowevil}]

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

Что-то не пойму проблемы. Данные активизированных ADOQuery или ADOTable и так находятся в памяти. Доступ к данным конечно не такой, как к массиву в памяти. Или вам нужен массив из Record-ов с доступом по индексу? Или проблема в доступе к данным после закрытия DataSet? Если вы данные каким-то образом перетяните в массив, то по памяти почти не сэкономите. По скорости доступа можно будет сэкономить, если загрузка в реальный массив и доступ по индексу, который кстати и знать нужно будет. В противном случае существенной экономии не получите, даже воспользовавшись компонентом типа RxMemoryData или ему подобным

Честно даже не знаю как правильно сформулировать. Если Вы помните, Вы помогли мне нарисовать на канве ListBox'a текст из БД, так вот, в том же событии onDrawItem имеется тот самый код, выбирающий необходимую запись в зависимости от индекса итема, а дальше запрос, выбирающий из другой таблицы (в моем случае "Phone") необходимые записи, где в качестве параметров выступают значения из ZQuery1, когда итемов получается допустим 5, то все нормально, а когда 25 то при перемотке канвы появляются артефакты из-за постоянного обращения к БД(т.к. итемы на канве постоянно перерисовываются), меня интересует возможно ли предварительно загрузить таблицу Phone в память и обращаться к памяти, а не к самой БД??

  ZQuery1.RecNo:=Integer(sListBox1.Items.Objects[Index]);
...
...
Query10.SQL.Clear;
  Query10.SQL.Add('SELECT who, code, phone FROM phone WHERE cid=:cityid AND fid=:fid');
 Query10.ParamByName('cityid').Value:=ZQuery1.FieldByName('cid').AsInteger;
  Query10.ParamByName('fid').Value:=ZQuery1.FieldByName('fid').AsInteger;
  Query10.Open;
  While Not Query10.Eof do
   begin
    str:=Query10.FieldByName('who').AsString;
    if str='' then str:=' ' else str:=str+': ';
    st:=st+str+'8 '+'('+Query10.FieldByName('code').AsString+') '+Query10.FieldByName('phone').AsString+'; ';
    Query10.Next;
   end;
 ...

[Slym]

покажи как ресуешь конечного варианта в прошлой ветки не увидел
а лучше весь листинг в студию

[{Shadowevil}]

Сообщение от Slym

покажи как ресуешь конечного варианта в прошлой ветки не увидел
а лучше весь листинг в студию

Весь листинг слишком здоровый, да и не к чему в принципе, вот прорисовка:

procedure TfrmMain.sListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  xColor: TColor;
  x, i,k,h: integer;
  str, st, st2: string;
begin
  if sListBox1.Count=0 then Exit;
  ZQuery1.RecNo:=Integer(sListBox1.Items.Objects[Index]);

  st:=sListBox1.Items.Strings[Index];
  i:=Pos('^', st);
  k:=Pos('&', st);
  st2:='';
  for i:=i+1 to k-1 do
    st2:=st2+st[i];
  LBfid:=strtoint(st2);
  i:=Pos('^', st);
  st2:='';
  for k:=1 to i-1 do
    st2:=st2+st[k];


  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:=clGradientActiveCaption
  else sListBox1.Canvas.Font.Color:=clBlack;  

  sListBox1.Canvas.Font.Size:=9;
  x:=sListBox1.Canvas.Font.Size;
  sListBox1.Canvas.TextRect(Rect, Rect.Left+10,Rect.Top, st2);
  sListBox1.Hint:=st2;
  sListBox1.ShowHint:=true;

  i:=Pos('&', st);
  st2:='';
  for i:=i+1 to Length(st) do
    st2:=st2+st[i];
  LBadr_id:=strtoint(st2);

 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.TextOut(Rect.Left+15, Rect.Top+x+7, ZQuery1.FieldByName('allinfo').AsString);

   
  st:='';
  Query10.SQL.Clear;
  Query10.SQL.Add('SELECT who, code, phone FROM phone WHERE cid=:cityid AND fid=:fid');
  Query10.ParamByName('cityid').Value:=ZQuery1.FieldByName('cid').AsInteger;
  Query10.ParamByName('fid').Value:=ZQuery1.FieldByName('fid').AsInteger;
  Query10.Open;
  While Not Query10.Eof do
   begin
    str:=Query10.FieldByName('who').AsString;
    if str='' then str:=' ' else str:=str+': ';
    st:=st+str+'8 '+'('+Query10.FieldByName('code').AsString+') '+Query10.FieldByName('phone').AsString+'; ';
    Query10.Next;
   end;
   sListBox1.Canvas.TextOut(Rect.Left+15, Rect.Top+x+23, 'тел: '+st);
end;

[Аватар]

Ну и зачем при прорисовке каждый раз запрос выполнять? Если не получилось эти данные засунуть в общий запрос, о котором шел разговор в конце прошлого поста, то в тот же Query10 там же потяните все данные из phone без условия WHERE, но с ORDER BY cid,fid. При прорисовке используя Query10.Locate и данные из записи ZQuery1 находите первую строку и остальные в цикле

[{Shadowevil}]

Так надо делать? вместо Query10 - ZQuery3

ZQuery3.Locate('fid', ZQuery1.FieldByName('fid').AsInteger, [loPartialKey]);

[Аватар]

С учетом ORDER BY cid,fid

  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
      ...
      ZQuery3.Next;
    end;

[{Shadowevil}]

Спасибо, сделал) только вот практически ничего не изменилось (
А можно как нибудь ускорить процесс прорисовки канвы?