新手!!!! 例如有一字串:設變數給它 n:='aaa,bbb,ccc'; 如何將它轉入陣列中.使它變成.. 例如: a[0]:=aaa; a[1]:=bbb; a[2]:=ccc; 要如何轉成如此?? 謝謝! 急!

Hi,nevin 您好：     我記得還有更 smart 的函式可以解這個問題，但我也沒背，只好用最原始 的方法自己做字串處理，建議你順便練習一下字串處理函數。    procedure TForm1.Button1Click(Sender: TObject); var s,m1 : string;     A : array of string; //宣告動態陣列     i,j : integer; begin     i := 0;     j := 0;     edit1.Text :='aaa,bbb,ccc,ddd';     s := edit1.Text;     setlength(A,4); //設定動態陣列長度     while (pos(',',s)>0) do //當 s 中還有「，」時     begin     i := pos(',',s); //在這兒設中斷點可監看 「，」 實際傳回的位置值     m1 := copy(s,0,pos(',',s)-1);     showmessage(m1);     A[j] := m1;     j := j + 1;     s := copy(s,pos(',',s)+1,length(s));     end;     s := copy(s,pos(',',s)+1,length(s)); //while 迴圈會抓不到最後一個字，想一下為什麼 >< > 我要努力向上 ========================

參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24685 --- Everything I say is a lie.

Hi:    

 procedure TForm1.Button14Click(Sender: TObject);
begin
    Memo1.Clear;
    TRY
        Memo1.Lines.Delimiter := ',';
        Memo1.Lines.DelimitedText := Edit5.Text;
    EXCEPT
    END;
end;

其中，Memo1.Lines.Delimiter 可指定字元進行資料切割 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

I got it! 謝謝大家!