下面是一個讀檔用的程式碼：     TStringList *S1=new TStringList;     TStringList *S2=new TStringList;     S1->LoadFromFile("1.txt");      //動態宣告二維陣列          a=new int*[N];       for(int x=0;xCount;i ) { AnsiString S; S=S1->Strings[i]; S=StringReplace(S,"",",",TReplaceFlags()<CommaText=S; for(int j=0;jCount;j ) { a[i][j]=StrToInt(S2->Strings[j]); } } delete S2; delete S1; 可是 S=StringReplace(S,"",",",TReplaceFlags()<

引言: 下面是一個讀檔用的程式碼： TStringList *S1=new TStringList; TStringList *S2=new TStringList; S1->LoadFromFile("1.txt"); //動態宣告二維陣列 a=new int*[N]; for(int x=0;xCount;i++) { AnsiString S; S=S1->Strings[i]; S=StringReplace(S,"",",",TReplaceFlags()<CommaText=S; for(int j=0;jCount;j++) { a[i][j]=StrToInt(S2->Strings[j]); } } delete S2; delete S1; 可是 S=StringReplace(S,"",",",TReplaceFlags()< glenn 你好: 請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

插個花，看看Help，StringReplace的解釋: StringReplace Returns an AnsiString with occurrences of one substring replaced by another substring. Description StringReplace replaces occurrences of the substring specified by OldPattern with the substring specified by NewPattern. StringReplace assumes that the source string, specified by S, may contain Multibyte characters. If the Flags parameter does not include rfReplaceAll, StringReplace only replaces the first occurrence of OldPattern in S. Otherwise, all instances of OldPattern are replaced by NewPattern. If the Flags parameter includes rfIgnoreCase, The comparison operation is case insensitive.

===============
人生在勤,不索何获? 
===============

------
人生在勤，不索何获？

原來是這樣子， 感謝RaynorPao的解答