結構型數組的動態設置及其編程

在我們常用的系統中，結構性數組是經常用到的，但是使用的時候應該按照使用的需求分配數組，不能一次性給太大的空間，這樣既不科學，也不利於系統的管理，因此動態的設置結構數組的長度是很必要的。

--------------------------------------------------  
 type TMyType = record     
      S: String;     
      I: Integer;    
   end;   
   TMyArray = array of TMyType;   
   PMyArray = ^TMyArray;
---------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var MyArray: PMyArray;   
    i:integer;    
    AList:TStrings;
begin  
   try    new(MyArray);    
   AList:=TStringList.Create;    
   SetLength(MyArray^, 50000);    
   for i:=0 to 49999 do    
   begin      
      MyArray^[i].S :='中山'+inttostr(i);      
      myArray^[i].I :=i;      
      AList.Add(MyArray^[i].S+',年齡爲：'+inttostr(MyArray^[i].I));    
   end;   
   self.Memo1.Lines:=Alist;  
   finally     
      SetLength(MyArray^, 0);     
      Dispose(MyArray);  
   end;
end;