变量内存形式

(*// 标题:变量内存形式
说明:适用于位操作调试
设计:Zswang
日期:2002-03-07
支持:wjhu111@21cn.com
//*)
///////Begin Source
function BufferToDisplay(const mBuffer; mSize: Integer): string;
var
I: Integer;
begin
Result := '';
for I := 0 to mSize - 1 do try
Result := Result + IntToHex(TByteArray(mBuffer), 2);
except
Result := '';
Exit;
end;
end; { BufferToDisplay }
function DisplayToBuffer(mDisplay: string; var mBuffer; mSize: Integer): Boolean;
var
I: Integer;
begin
Result := False;
for I := 0 to mSize - 1 do try
TByteArray(mBuffer) := StrToIntDef('$' + Copy(mDisplay, I * 2 + 1, 2), 0);
except
Exit;
end;
Result := True;
end; { DisplayToBuffer }
///////End Source
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := StrToIntDef(Edit1.Text, 0);
Edit2.Text := BufferToDisplay(I, SizeOf(I));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
DisplayToBuffer(Edit2.Text, I, SizeOf(I));
Edit1.Text := IntToStr(I);
end;
///////End Demo