分割字符串的问题! |
尚未結案
|
reebokmonkey
一般會員 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
reebokmonkey
一般會員 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
reebokmonkey
一般會員 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
引言: 为什么程序运行到 SL.DelimitedText := 'aa:bb:cc'; 这句话后就自动结束了。< >< > class="code">procedure TMainForm.Button1Click(Sender: TObject); var i: integer; SL: TStringList; begin SL := TStringList.Create; try SL.Delimiter := ':'; SL.DelimitedText := 'aa:bb:cc'; for i := 0 to SL.Count-1 do ShowMessage(SL[i]); finally SL.Free; end; end; |
8325100
一般會員 發表:7 回覆:7 積分:2 註冊:2003-05-26 發送簡訊給我 |
//用這種寫法看看是不是你想要 var
StrAry:TStringList;
S:String;
begin
S:='aa:bb:cc';
StrAry:= TStringList.Create;
StrAry.Text := WrapText(S, #13#10 ,[':'], 0 );
StrAry.Text:=Trim(StringReplace(StrAry.Text,':','',[rfReplaceAll]));
ShowMessage(StrAry.Text);
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |