Type
TStudent = record
id :string;
Name:string;
end;
TStudentList :array of TStudent;
StudentList :TStudentList;
student :TStudent;
Insert 改变数组长度
student.id :=GUID;
student.name :='陈生';
Insert(student,StudentList ,Length(StudentList)-1);
Type
TStudent = record
id :string;
Name:string;
end;
TStudentList :array of TStudent;
StudentList :TStudentList;
student :TStudent;
Insert 改变数组长度
student.id :=GUID;
student.name :='陈生';
Insert(student,StudentList ,Length(StudentList)-1);