david
13eee3f7f4
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jcl@20 c37d764d-f447-7644-a108-883140d013fb
51 lines
1.2 KiB
ObjectPascal
51 lines
1.2 KiB
ObjectPascal
unit FastMMMemoryFrame;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, FastMMParser, Grids, StdCtrls, ExtCtrls;
|
|
|
|
type
|
|
TfrmMemory = class(TFrame)
|
|
Panel2: TPanel;
|
|
lbMemoryAddr: TLabel;
|
|
Label6: TLabel;
|
|
sgMemory: TStringGrid;
|
|
private
|
|
{ Private-Deklarationen }
|
|
FMemoryArray: TFastMMMemoryArray;
|
|
procedure SetMemoryArray(const Value: TFastMMMemoryArray);
|
|
procedure SetAddress(const Value: Integer);
|
|
public
|
|
{ Public-Deklarationen }
|
|
property Address: Integer write SetAddress;
|
|
property MemoryArray: TFastMMMemoryArray write SetMemoryArray;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrmMemory }
|
|
|
|
procedure TfrmMemory.SetAddress(const Value: Integer);
|
|
begin
|
|
lbMemoryAddr.Caption := Format('%.8x', [Value]);
|
|
end;
|
|
|
|
procedure TfrmMemory.SetMemoryArray(const Value: TFastMMMemoryArray);
|
|
var
|
|
I, J: Integer;
|
|
begin
|
|
FMemoryArray := Value;
|
|
for I := 0 to 7 do
|
|
for J := 0 to 31 do
|
|
sgMemory.Cells[J, I] := Format('%.2x', [FMemoryArray[I * 32 + J]]);
|
|
for I := 0 to 7 do
|
|
for J := 0 to 31 do
|
|
sgMemory.Cells[J, I + 8] := string(AnsiChar(Chr(FMemoryArray[I * 32 + J])));
|
|
end;
|
|
|
|
end.
|