從檔案流中讀入多維陣列。
var
myfile:TfileStream;
mybuf:Treal;
i,j:Integer;
begin
myfile:=TfileStream.Create('d:/a.txt',fmOpenRead);
setlength(mybuf,10,15);
myfile.Readbuffer(mybuf[0,0],myfile.Size);
//delete(String(mybuf),1,myfile.Size-4);
for i:=0 to 9 do
for j:=0 to 14 do
memo1.Lines.Add(formatfloat('0',mybuf[i,j]));
myfile.free;
end;
從多維陣列中寫入檔案流中。
procedure TForm1.Button2Click(Sender: TObject);
var
myfile:TfileStream;
mybuf:Treal;
i,j:Integer;
begin
myfile:=TfileStream.Create('d:/a.txt',fmCREATE);
setlength(mybuf,10,15);
for i:=0 to 9 do
for j:=0 to 14 do
mybuf[i,j]:=i+j;
myfile.writebuffer(mybuf[0,0],10*15*sizeof(real));！！！！寫入資料不對
Myfile.free;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/98969.html
標籤：語言基礎/算法/系統設計
上一篇：求個U盤自主獲取IP
下一篇：求Delphi4補丁，急！