【控件功能】我来做练习-结构体数组

结构体数组

提示：这里可以添加技术概要

核心源码

提示：这里可以添加技术整体架构
RCardInfo = record

CardNo: String;//会员卡号码

Name: String;//姓名

Sex: String;//性别

Age: Integer;//年龄

BirthDay: TDateTime;//生日

Tel: String;//联系电话

Money: Currency;//办理金额

RealMoney:Currency;//实况金额

ReMark: String;//备注

IfFriend: Boolean;//是否朋友介绍

IfJS:Boolean;//是否技师介绍

JsCode: String;//技师编号

end;

var

CardInfo: array[0…9999] of RCardInfo;

begin

CardInfo[0].CardNo:= Edit1.Text;

CardInfo[0].Name:= Edit2.Text;

…

end;

結構體指針分配內存
var
p: PPoint;
i: Integer;
buf: array[0…255] of Char;
type
ArrPoint = array of TPoint; {用于转换的自定义类型}
begin
p := GetMemory(4 * SizeOf(TPoint));

for i := 0 to 3 do
begin
ArrPoint§[i].X := i;
ArrPoint§[i].Y := i * i;
end;

wvsprintf(buf, ‘%d,%d; %d,%d; %d,%d; %d,%d’, PChar§);
ShowMessage(buf); {0,0; 1,1; 2,4; 3,9}

FreeMemory§;
end;