source: branches/UltimatOS/Forms/UFormMemory.pas

unit UFormMemory;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, UMemory;

type

  { TFormMemory }

  TFormMemory = class(TForm)
    ListView1: TListView;
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private

  public
    Memory: TMemory;
    procedure ReloadList;
  end;

var
  FormMemory: TFormMemory;


implementation

{$R *.lfm}

{ TFormMemory }

procedure TFormMemory.ListView1Data(Sender: TObject; Item: TListItem);
var
  Data: string;
  I: Integer;
begin
  if Item.Index < Memory.Size div 16 then begin
    Item.Caption := IntToHex(Item.Index * 16, 8);
    Data := '';
    for I := 0 to 15 do
      Data := Data + ' ' + IntToHex(Memory.Data[Item.Index * 16 + I], 2);
    Item.SubItems.Add(Trim(Data));
    Data := '';
    for I := 0 to 15 do
      if Memory.Data[Item.Index * 16 + I] >= 32 then
        Data := Data + Chr(Memory.Data[Item.Index * 16 + I])
        else Data := Data + '.';
    Item.SubItems.Add(Data);
  end;
end;

procedure TFormMemory.FormShow(Sender: TObject);
begin
  ReloadList;
end;

procedure TFormMemory.ReloadList;
begin
  if Assigned(Memory) then begin
    ListView1.Items.Count := Memory.Size div 16;
    ListView1.Refresh;
  end else ListView1.Items.Count := 0;
end;

end.