把 Integer 数组保存到文件、并读取
2009-04-14 20:40
351 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type TIntArray = array of Integer; {把 Integer 数组写入文件的函数} function IntArrToFile(ns: TIntArray; FileName: string): Boolean; var IntFile: file of Integer; n: Integer; begin try AssignFile(IntFile, FileName); if FileExists(FileName) then Reset(IntFile) else Rewrite(IntFile); Seek(IntFile, FileSize(IntFile)); for n in ns do Write(IntFile, n); Result := True; finally CloseFile(IntFile); end; end; {读取的函数} function FileToIntArr(FileName: string; var ns: TIntArray): Integer; var IntFile: file of Integer; begin if not FileExists(FileName) then Exit(0); AssignFile(IntFile, FileName); Reset(IntFile); while not Eof(IntFile) do begin SetLength(ns, Length(ns)+1); Read(IntFile, ns[High(ns)]); end; CloseFile(IntFile); Result := Length(ns); end; {写入测试} procedure TForm1.Button1Click(Sender: TObject); var IntArr: TIntArray; begin SetLength(IntArr, 3); IntArr[0] := 111; IntArr[1] := 222; IntArr[2] := 333; IntArrToFile(IntArr, 'c:\temp\test.num'); end; {读取测试} procedure TForm1.Button2Click(Sender: TObject); var IntArr: TIntArray; n: Integer; begin FileToIntArr('c:\temp\test.num', IntArr); for n in IntArr do ShowMessage(IntToStr(n)); end; end.
相关文章推荐
- C#循环读取文件夹里的文件,然后把文件名保存到数组里
- 将文件读取成二进制数组保存到数据库
- [Unity][JSON][csv][JSONUnity]csv-JSON如何在CSV文件中保存数组并读取JSON数组
- qt 读取txt文件内容并保存到数组中
- QT和VS读取.txt文件中的数据并保存为数组
- QT和VS读取.txt文件中的数据并保存为数组
- Python中对文件夹下的特定格式图像全部读取并转化为数组保存(也可转化为txt文件)
- C# C sharp保存读取文件 定时器 数组转16进制字符串 源码
- 第8周项目1(2)数组做数据成员文件的读取和保存
- prim算法改编,C语言,可将顶点保存到数组,并可读取文件
- c语言 创建动态二维数组 读取txt文件到数组
- 比如这个input.txt文件中的字符串:...把他们去掉那些空格,标点,换行符等,读取到数组word[MAX]中。
- 读取bmp文件然后在重新保存为一新的bmp文件
- Swift - 本地数据的保存与读取(使用NSCoder将对象保存到.plist文件)
- INI的替代品--XML配置文件读取与保存
- 用VB.NET 如果将任何文件以二进制形式保存在数据库,然后再从数据库读取出来
- Android——文件的保存和读取
- python 读取.csv文件数据到数组(矩阵)的实例讲解
- 读取读写C++文件读写操作(四)读取文件数据到临时数组
- ASP读取文件 ASP写入/保存文件