unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
R_Test =packed record
a,b,c:string[10];
d:Integer;
e,f:Double;
end;
R_Recordtest =packed record
Int:array[1..3] of R_Test;
Str:array[1..3] of R_Test;
Dou:array[1..1] of R_Test;
cha:array[1..3] of R_Test;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var aa:R_Recordtest;
cc:R_Test;
str:string;
begin
str:=Format(' %d %d ',[SizeOf(aa),SizeOf(cc)]) ;
ShowMessage(IntToStr(SizeOf(aa) div SizeOf(cc))+' '+str);
end;
end.
取得结构体中的数组总长度
最新推荐文章于 2023-12-08 16:26:25 发布