Insert 改变array的长度

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);