Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
想要把下列程式轉為DELPHI 語法,可否幫忙 !!
Open "c:\vbtest.txt" For Output As #1 For i = 3 To 23 Write #1, aa(i) Next I Close #1 Open "c:\vbtest.txt" For Input As #1 For i = 3 To 23 Input #1, aa(i) Next I Close #1
(* 下例各程式假設已宣告一個 pascal 字串型陣列 *) aa: array[1..50] of string; var hFile: TextFile; sFileName: String; ix: integer; begin sFileName := 'c:\vbtest.txt'; (* 指定檔名 *) AssignFile(hFile, sFileName); (* 取得一個 File Handle *) ReWrite(hFile); (* 開新的檔案 *) try for ix := 3 to 23 do Writeln(hFile, aa[ix]); (* 寫入一列資料 *) finally CloseFile(hFile); (* 關檔 *) end; end;
Open "c:\vbtest.txt" For Input As #1 For i = 3 To 23 Input #1, aa(i) Next I Close #1
var hFile: TextFile; sFileName: String; ix: integer; begin sFileName := 'c:\vbtest.txt'; (* 指定檔名 *) AssignFile(hFile, sFileName); (* 取得一個 File Handle *) Reset(hFile); (* 開啟舊檔 *) try for ix := 3 to 23 do Readln(hFile, aa[ix]); finally CloseFile(hFile); (* 關檔 *) end; end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |