Ошибка Out of Memory

[Человек_Борща]

Т.е. единственный выход - прорисовывать таблицу и подгружать из файла нужно ровно столько, сколько помещается на видимой части таблицы?

Про прокрутку скроллером не забудьте. Не забудьте и про буферную зону(чтоб учесть прокрутну на 3 строки вверх и вниз).

[Stilet]

А я даже примерчик подкину:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    ScrollBar1: TScrollBar;
    procedure DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    fs:TFileStream; fPos:integer;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  ScrollBar1.Align:=alRight;
  ScrollBar1.Kind:=sbVertical;
  fs:=TFileStream.Create('d:\save.dat',fmOpenRead);
  with DrawGrid1 do begin
    DefaultColWidth:=20; DefaultRowHeight:=DefaultColWidth;
    FixedRows:=0; FixedCols:=0;
    RowCount:=self.Height div DefaultRowHeight; ColCount:=16;
    Align:=alClient;
    ScrollBars:=ssNone;
    ScrollBar1.Max:=fs.Size div RowCount;
  end;
  fPos:=0;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  fPos:=ScrollBar1.Position;
  DrawGrid1.Repaint;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  fs.Free;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var ps:Cardinal;
begin
  with TDrawGrid(sender) do begin
    ps:=fPos+(aRow*(RowCount-1))+aCol;
    fs.Position:=ps;
    Canvas.TextOut(aRect.Left,aRect.Top,IntToHex(fs.ReadByte,2));
  end;
end;

end.

Только чур не копипастить!

[mahatmaQL]

спасибо за советы и пример!

Пока не получилось плотно сесть за задачу, только в уме. Думаю, что можно разбить всю таблицу на страницы, равные VisibleRowCount. Естественно, учесть буферные строки при загрузке содержимого. Перерисовывать содержимое в зависимости от номера страницы, TopRow и VisibleRowCount.
На счет использования ТScrollBar были мысли, но не знал, как сделать, поэтому отдельно спасибо за пример. Обещаю не копипастить.

[Stilet]

Думаю, что можно разбить всю таблицу на страницы

Что настолько слабый комп будет? Даже побайтное чтение в TFileStream вроде за собой тормоза не вещает. Не ну можно конечно поступить не так как в примере - втупую, а с буфферизацией, но... Простота она иногда дает больший КПД нежели выкрутасы с оптимизацией.

[mahatmaQL]

Возможно, я запутался и чего-то не так понимаю. Пытаюсь разобраться в Вашем примере. Не подскажите описание процедуры ReadByte. Что-то не могу найти ее в TFileStream, среда Delphi7.

[Stilet]

Вот потому и предупреждаю: не копипастить )

var b:byte;
...
fs.ReadBuffer(b,1);
...IntToHex(b,2);
...