請幫幫我 |
|
Peter
一般會員 發表:10 回覆:2 積分:2 註冊:2002-06-28 發送簡訊給我 |
請問各路高手及前輩:
我將文字檔放置memo或listbox中,當讀取檔案時memo中的值需與讀取的檔案同步,也就是說當檔案讀到第二行時memo中的值也會跳到第二行以此類推,請問這要怎麼做?
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Edit1.Text:=OpenDialog1.FileName; AssignFile(inputfile,Edit1.Text); Reset(inputfile); while not Eof(inputfile) do begin readln(inputfile,s); while pos(',',s) >0 do begin i:=pos(',',s); delete(s,1,(i)); if i>0 then count:=count 1; end; if count |
Jasonwong
版主 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
引言: 請問各路高手及前輩: 我將文字檔放置memo或listbox中,當讀取檔案時memo中的值需與讀取的檔案同步,也就是說當檔案讀到第二行時memo中的值也會跳到第二行以此類推,請問這要怎麼做?if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Edit1.Text:=OpenDialog1.FileName; 上面這一段就不要了 AssignFile(inputfile,Edit1.Text); Reset(inputfile); while not Eof(inputfile) do begin readln(inputfile,s); Memo1.Lines.Add(s); <-- 加入這一行 while pos(',',s) >0 do begin i:=pos(',',s); delete(s,1,(i)); if i>0 then count:=count 1; end; if count
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |