代碼是這樣的，從NuCoef.data檔案中讀數賦給整形陣列Nals：77行、5列，接著讀數賦給浮點陣列Cls：77行、6列，您要是愿意幫忙的話，麻煩您給我個郵箱，我把NuCoef.data檔案發給您，您把讀出來的數存成TXT格式的檔案再發給我，謝謝了！
program Project1
const NutNum = 77;
Nals:array[1..NutNum, 1..5]of interger;
Cls:array[1..NutNum, 1..6]of extended;
constructor TCoorTrans.lni;
begin
FStream:=TFileStream.Create('NuCoef.data', fmOpenRead);
FStream:Read(Nals,Sizeof(Nals));
FStream:Read(Cls, Sizeof(Cls));
FStream.Free;
end
uj5u.com熱心網友回復：
還有幾行代碼，FileNme:string
FStream:TFileStream;
uj5u.com熱心網友回復：
源檔案NuCoef.data我已經傳到CSDN的下載資源里面了，愿意幫忙的好心人可以從上面直接下載，下載方法是進入我的空間，在資源選項中選擇更多那個選項，就可以看到我的上傳資源，源檔案就在那；或者直接去下載頻道搜索NuCoef.data，謝謝啦uj5u.com熱心網友回復：
啥玩意，米看懂
uj5u.com熱心網友回復：
你是真不會還是假不會呀，你都已經知道怎么讀出來了，還不會輸出文本檔案嗎.const
NutNum=77;
var
Nals:array[1..NutNum, 1..5] of integer;
Cls:array[1..NutNum, 1..6] of extended;
procedure TForm1.Button2Click(Sender: TObject);
var
fs:TFileStream;
i,j:Integer;
s:string;
begin
fs:=TFileStream.Create('c:\NuCoef.data',fmOpenRead);
try
fs.Read(Nals,Sizeof(Nals));
fs.Read(Cls, Sizeof(Cls));
Memo1.Clear;
for i:=1 to NutNum do
begin
s:='';
for j:=1 to 5 do
s:=s+' '+IntToStr(Nals[i,j]);
Memo1.Lines.Add(s);
end;
for i:=1 to NutNum do
begin
s:='';
for j:=1 to 6 do
s:=s+' '+FloatToStr(Cls[i,j]);
Memo1.Lines.Add(s);
end;
finally
fs.Free;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/131879.html
標籤：語言基礎/算法/系統設計
上一篇：delphi