AnsiString Data[3][4];
  for(int i=0; iLines->Count; i  )
  {
   TStringList *sl=new TStringList;
   AnsiString sz=StringReplace(Memo1->Lines->Strings[i], " ", ",", TReplaceFlags()<CommaText=sz;
   for(int j=0; jCount; j  )
   {
    Data[i][j]=sl->Strings[j];
   }
    delete sl;
  }
  ShowMessage(Data[0][0]);

Memo1->Lines->Strings[i] <----讀取Memo內第i行的資料    因為taishyang版主先以下面這行程式將Memo1第i行內容中的空白轉換成","
AnsiString sz=StringReplace(Memo1->Lines->Strings[i], " ", ",", TReplaceFlags()< sl->CommaText=sz;    而TStringList是可以將以 ","分隔的字串轉成陣列型式
所以才有下面這行的出現
Data[i][j]=sl->Strings[j];