Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Kylix3下的讀檔問題

0 views
Skip to first unread message

憶 忘憂草

unread,
Dec 8, 2002, 1:35:35 PM12/8/02
to
小弟在讀取文字檔時發生了不知道怎麼解決的問題...

文字檔(test.txt)的內容如下
good 100 200

程式內容如下
var infile:TextFile;
name:String;
a1,a2:Integer;
begin
AssignFile(infile,'test.txt');
Reset(infile);
Read(infile,name,a1,a2);
Edit1.Text:=name;
Edit2.Text:=inttostr(a1);
Edit3.Text:=inttostr(a2);
CloseFile(infile);
end;

結果Edit1顯示出來的竟是good 100 200,而Edit2,Edit3則顯示0

所以想請問要如何寫才能將讀的資料正確呢?
(Edit1顯示good,Edit2顯示100,Edit3顯示200)

萬分感謝~~
--
[1;32m※ Origin: [33mSayYA 資訊站 [37m<bbs.sayya.org> [m
[1;31m◆ From: [36mplum.cs.nccu.edu.tw [m

0 new messages