本文介绍了一种定义的记录类型 TRecord，包含 DWord 和字符数组，并演示了如何分配内存，初始化并显示记录中的字符数组内容。通过具体的 Delphi 代码示例，展示了内存操作的基本过程。
type
TRecord=record
a:DWord;
b:array [0..99] of Char;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
buff:array [0..SizeOf(TRecord)-1] of Byte;
a :^TRecord;
begin
a:=AllocMem(SizeOf(TRecord));
buff[4]:=Ord('a');
Move(buff,a^,10);
ShowMessage(a^.b);
end;
TRecord=record
a:DWord;
b:array [0..99] of Char;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
buff:array [0..SizeOf(TRecord)-1] of Byte;
a :^TRecord;
begin
a:=AllocMem(SizeOf(TRecord));
buff[4]:=Ord('a');
Move(buff,a^,10);
ShowMessage(a^.b);
end;
扫一扫
181
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
