动态数组
TStringDynArray ls;
ls = SplitString(spara,"|");
for(int i = 0; i < ls .Length; i++) ShowMessage(ls [i]);
TStringDynArray ar;
ar[0]=2;
ar[25]="";
ar.set_length(28);
ar[0]=2;
ar.Length;
TStringDynArray arr;
arr = System::Ioutils::TDirectory::GetFiles("C:\\Windows");
this->Memo1->Lines->AddStrings(arr);
arr = System::Ioutils::TDirectory::GetFiles("c:\\windows","*.ppt", System::Ioutils::TSearchOption::soAllDirectories );