Array陣列問題...如何將用逗點分的一字串寫入陣列中??? |
尚未結案
|
nevin
一般會員 發表:3 回覆:3 積分:1 註冊:2003-08-30 發送簡訊給我 |
|
azurecloud
中階會員 發表:52 回覆:108 積分:92 註冊:2003-09-04 發送簡訊給我 |
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 迴圈會抓不到最後一個字,想一下為什麼
>< > 我要努力向上 >>
========================
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
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 |
nevin
一般會員 發表:3 回覆:3 積分:1 註冊:2003-08-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |