XE4 TStringDynArray 比 c6 的TStringList 好用

动态数组

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