(已自行解決，此帖作廢)

陸青緣

1. program test1;
   
2. var
   
3. diskfile:text;
   
4. ch_no:integer;
   
5. 
   
6. begin
   
7. readln(ch_no);
   
8. assign(diskfile,ch_no'.txt');
   
9. reset(diskfile);
   
10. close(diskfile)
    
11. end.
    

复制代码

在這個很簡單的程式中， assign(diskfile,ch_no'.txt'); 這句是不成立的，但如果我想做出一個能開啟與ch_no相同的檔案文件(即若ch_no:=001，檔案文件名稱就是001.txt')，不知有沒有解決方法??

(原來答案是把它改成assign(diskfile,IDno+'.txt')...此帖作廢)

慕容老恭

高手时常出没达摩堂，那里也贴张试试。

陸青緣

回复 慕容老恭 的帖子

那兒不是我的常出沒的地方，不敢去。