Delphi中將檔案流的資料寫入動態陣列

var

myfile:tfilestream;

mybuf:array of pchar;

begin

myfile:=tfilestream.create('d:/a.txt',fmopenreadwrite);

setlength(mybuf,myfile.size);

myfile.readbuffer(mybuf[0],myfile.size);

//delete(string(mybuf),1,myfile.size-4);

showmessage(pchar(mybuf));

因為delphi中的靜態組是在執行前就分配好了，所以它的變數位址就是些陣列的第一維位址，即沒有描述部份，故它的sizeof為1個位元組,而動態陣列是在執行期間動態分配乙個記憶體塊，所以它的變數位址部分需要乙個描述部分，故它的sizeof為四個位元組，用於存放描述表，所以在 readbuffet時，需要採用些陣列的第一維位址為起始位址，才不會導致溢位。

Delphi中將檔案流的資料寫入動態陣列

var myfile tfilestream mybuf array of pchar begin myfile tfilestream.create d a.txt fmopenreadwrite setlength mybuf,myfile.size myfile.readbuffer mybu...

簡單的檔案流寫讀

region 檔案流寫入 private void writefileinfo stream myfile.open filemode.openorcreate byte bytearr stream.write bytearr,0,bytearr.length 1 stream.flush str...

delphi寫的時鐘

很久以前寫的程式了，要整理機器，只好放到這了 unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,extctrls,stdctrls type tform...