//结构体的声明 typedef struct Mwinddirectbaseline { char* p; int s; int i; }Mwinddirectbaseline; typedef struct F { char* p; int s; int i; }F; typedef struct H { char* p; int s; int i; }H; typedef struct Coordinate1 { char* p; int s; int i; }Coordinate1; t
https://blog.csdn.net/lotusyangjun/article/details/8203521 一.在Setlength 被调用次数不多时,可直接使用以下代码进行释放var aa: array of integer; procedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin SetLength(aa, 1000); for I := 0 to 999 do begin aa[I] := i; en