一个比较简单的问题（关于文件读写）(50分)

delphilike · 1999-11-26

我有一个二维的数组T[1..64,1..64] 现在需要将其以一个矩阵的形式存入一个文件中 不知道如何操作？ 请赐教

cAkk · 1999-11-26

我觉得你怎么保存都无所谓,关键是你读出来之后赋值给数组就可以了.

delphilike · 1999-11-26

我的意思是我生成一个重要的数组 我需要将其保存为一个文件供其他程序调用

Hexi · 1999-11-26

with TFileStream.Create('aa.dat',fmCreate) do begin   Write(@T,Sizeof(T)); //写   Free; end; with TFileStream.Create('aa.dat',fmCreate) do begin   Read(@T,Sizeof(T)); //读   Free; end;

Hexi · 1999-11-26

pat1: with TFileStream.Create('aa.dat',fmOpenRead) do begin   Read(@T,Sizeof(T)); //读   Free; end;

cAkk · 1999-11-26

>>保存为一个文件供其他程序调用 一样啊! 既然保存格式你自己知道,不管在哪个程序里,你自己读出来并赋值给数组不就行了?

delphilike · 1999-11-26

begin   Write(@T,Sizeof(T)); //写   Free; 出错显示Varible required

amo · 1999-11-26

var   ar:array[0..4,0..4] of char; procedure TForm1.Button1Click(Sender: TObject); var   i,j:integer;   f:file; begin   for i:=0 to 4 do     for j:=0 to 4 do       ar[j]:=char(ord('a')+i+j);   assignfile(f,'test.dat');   rewrite(f,1);   blockwrite(f,ar,25);   closefile(f); end; procedure TForm1.Button2Click(Sender: TObject); var   i,j:integer;   f:file; begin   assignfile(f,'test.dat');   reset(f,1);   blockread(f,ar,25);   closefile(f);   for i:=0 to 4 do     for j:=0 to 4 do       memo1.lines.add(ar[j]); end;

cAkk · 1999-11-26

Write(@T,Sizeof(T)); 改成 Write(T[0,0],Sizeof(T));

DreamTiger · 1999-11-26

保存到Ini，从Ini读出： procedure WriteToIni(const iniFileName:string;const Section:string); var   iniFile:TIniFile;   iCol,iRow:integer;   s:string; begin   if(Section = '') then exit;   IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+ iniFileName);   if(iniFile = nil) then exit;   iniFile.EraseSection(Section);   for iRow := 1 to 64 do   begin     for iCol := 1 to 64 do     begin       s := IntToStr(iCol) + '_' + IntToStr(iRow);       iniFile.WriteInteger(Section,s,T[iCol,iRow]);     end;   end;   iniFile.Free; end; procedure ReadFromIni(const iniFileName:string;const Section:string); var   iniFile:TIniFile;   i,iPos,iCol,iRow:integer;   name,value:string;   values:TStringList; begin   if(Section = '') then exit;   IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+ iniFileName);   if(iniFile = nil) then exit;   values := TStringList.Create;   iniFile.ReadSectionValues(Section,values);   iniFile.Free;   for i:= 0 to values.Count - 1 do   begin     iPos := Pos('=',values);     name := Copy(values,1,iPos - 1);     value := Copy(values,iPos + 1,Length(values) - iPos);     iPos := Pos('_',name);     iCol := StrToInt(Copy(name,1,iPos - 1));     iRow := StrToInt(Copy(name,iPos + 1,Length(name) - iPos));     T[iCol,iRow] := StrToInt(value);   end;   values.Free; end;

DreamTiger · 1999-11-26

跟Hexi和cAKK的比，比较笨拙了，呵呵。 我原来是用来保存TStringGrid的数据的。 在这个问题上看来不用那么复杂。

Hexi · 1999-11-26

将T以var形式传给读写过程。

Iknow · 1999-11-26

越看程序越长. ^_^ 其实用文本文件方式, 加上write, writeln的方法不就可以了么? {假设是10行5列的矩阵, 数据类型是integer} const m=10;       n=5; var a:array[0..m-1, 0..n-1] of integer;     t:text;i, j:integer; begin     {$I-}     assignfile(t, 'C:/Tempfile.aaa');     rewrite(t);     {$I+}     if ioresult<>0 then         {文件创建错误}         exit;     {$I-}     for i:=0 to m-1 do     begin         for j:=0 to n-1 do             write(t, a[i, j], ' ');         writeln(t);     end;     {$I+}     closefile(t); end; 读取的话也不复杂, 直接用read, readln就可以了 const m=10;       n=5; var a:array[0..m-1, 0..n-1] of integer;     t:text;i, j:integer; begin     {$I-}     assignfile(t, 'C:/Tempfile.aaa');     reset(t);     {$I+}     if ioresult<>0 then         {文件创建错误}         exit;     {$I-}     for i:=0 to m-1 do     begin         for j:=0 to n-1 do             read(t, a[i, j]);         readln(t);     end;     {$I+}     closefile(t); end; 如果是C的话, 用fscanf代替read也是一样的.

herolj · 1999-12-10

我觉得无论如何实现,应该突出面向对象的思想.

lingru · 2000-01-16

前些日子市面上有一套双CD的程序员大本营,里面列出了DELPHI中关于 文件处理的API函数的调用.你如果需要我可以MAIL给你.OK? 另外,当你知道了一个相关的函数名称,例如TIniFile.create,在DELPHI的 环境中将其选中,按F1键,出来HELP后选择相关函数后,慢慢的找你所要的函数吧

SuperMMX · 2000-01-17

我觉得Iknow的最好，其实面向对象只是让人觉得简单， 所以怎么简单怎么来。

wjiachun · 2000-08-02

多人接受答案了。

一个比较简单的问题（关于文件读写）(50分)

delphilike

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

delphilike

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

delphilike

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Iknow

Unregistered / Unconfirmed

herolj

Unregistered / Unconfirmed

lingru

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads