txt 檔的Writeln 如何接續? |
|
答題得分者是：Coffee
|
|
joana
一般會員   發表：35 回覆：70 積分：21 註冊：2005-09-02 發送簡訊給我 |
把資料丟到 txt 檔, txt檔的表頭,我想做活動的, 如客戶輸入2006/01 - 2007/03
,則表頭就秀出 15個月之表頭如 2006/01 2006/02 2006/03 ....2007/03,但
Writeln 如何接續, 如下面之程式
procedure Trept203f.BitBtn3Click(Sender: TObject);
var s,ss:string;
outfile:Textfile;
begin
s:=',' ;
AssignFile(outfile,'c:\out\AAA.csv');
Rewrite(outfile);
Writeln(outfile,' 客編 ',s,' 客戶簡稱 ',s,' 區域'
no:=1;
是真正的月數 代表月份
while no<=rec do begin
if no=1 then
Writeln(outfile,s,rpt01); 但這樣寫沒辦法秀在同一行
if no=2 then
Writeln(outfile,s,rpt02);
if no=3 then
Writeln(outfile,s,rpt03);
no:=no 1;
end;
請問各位高手, 想把表頭秀在同一行,要如何寫 ??
多謝幫忙!
|
|
Coffee
版主  發表：31 回覆：878 積分：561 註冊：2006-11-15 發送簡訊給我 |
|
|
joana
一般會員 發表：35 回覆：70 積分：21 註冊：2005-09-02 發送簡訊給我 |
發表時間：2007-04-09 16:43:46
IP:122.124.xxx.xxx 訂閱
系統時間：2024-05-19 14:41:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |