全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1064
推到 Plurk!
推到 Facebook!

Tstringlist 問題一問。

答題得分者是:Chance36
lanbome
一般會員


發表:46
回覆:28
積分:14
註冊:2003-07-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-22 16:30:36 IP:220.228.xxx.xxx 未訂閱
請問: 我tstringlist從txt檔轉資料進來後。如果有空白行,想把它縮掉要怎作? 例如: 我一、二、四行有資料,但第三行是空的沒資料,想把第三行給縮掉。
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-22 16:53:29 IP:60.248.xxx.xxx 未訂閱
lanbome 你好    試試下列片段  
Var
  SL : TStrings;
  i : Integer ;
begin
  Sl := TstringList.Create;
  Sl.Commatext := '11,,22,33,,,44';
  For i:= Sl.Count-1 Downto 0 do
    If sl[i]='' then sl.delete(i);
  ShowMessage(Sl.CommaText);
  Sl.Free;
end;
 
_______________________________________ 深藍的魚,祝您好運..........連連
SamSam1230
中階會員


發表:128
回覆:178
積分:65
註冊:2004-12-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-03-22 17:01:42 IP:218.103.xxx.xxx 未訂閱
var TS : Tstringlist index : integer; begin TS := Tstringlist.Create; . // load your data . . if TS.Find(' ',index) = true then TS.delete(index); end;
系統時間:2024-07-01 5:38:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!