Example code : Another Array of Records in SmartMS

type

  // Declare a customer record

  TCustomer = Record

    firstName : string;

    lastName  : string;

    address1  : string;

    address2  : string;

    address3  : string;

    city      : string;

    postCode  : string;

end;

type

  TExpandedMember = record

  SubmitType : string;

  Member : TCustomer;

end;

procedure TForm1.W3Button11Click(Sender: TObject);

var SubTypeMember : TExpandedMember;

    i : integer;

begin

 SubTypeMember.SubmitType := 'VCL';

 SubTypeMember.Member.firstName := 'vcl Programmer';

 SubTypeMember.Member.address3 := 'vcl@aboutguide.com';

 SubTypeMember.Member.postCode := '555';

end;