source: tags/1.0.0/Forms/UFormMemory.pas

unit UFormMemory;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, Math;

const
  RowSize = 16;

type

  { TFormMemory }

  TFormMemory = class(TForm)
    Label6: TLabel;
    ListViewMemory: TListView;
    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
  private
    { private declarations }
  public
    procedure Reload;
  end;

var
  FormMemory: TFormMemory;

implementation

{$R *.lfm}

uses
  UCore, UTargetInterpretter;

{ TFormMemory }

procedure TFormMemory.Reload;
begin
  if Core.CurrentTarget is TTargetInterpretter then
  with TTargetInterpretter(Core.CurrentTarget) do begin
    ListViewMemory.Items.Count := Ceil(MemoryMaxUsed / RowSize);
    ListViewMemory.Refresh;
  end;
end;

procedure TFormMemory.ListViewMemoryData(Sender: TObject; Item: TListItem);
var
  Row: string;
  I: Integer;
begin
  if Core.CurrentTarget is TTargetInterpretter then
  with TTargetInterpretter(Core.CurrentTarget) do
  if (Item.Index >= 0) and (Item.Index <= Trunc(MemoryMaxUsed / RowSize)) then begin
    Item.Caption := IntToHex(Item.Index * RowSize, 8);
    Row := '';
    for I := 0 to RowSize - 1 do
      if (Item.Index * RowSize + I) < MemoryMaxUsed then
        Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
    Item.SubItems.Add(Row);
  end;
end;

end.