- 浏览: 197392 次
- 性别:
- 来自: 济南
文章分类
最新评论
-
Kesin97:
不错 很有用。选择性锁也不太影响性能。
sqlserver的updlock锁 (转) -
fox-idea:
学习
用PC作数据库服务器的容灾问题 -
xwei78:
话说这个下载地址不太好找啊,我去oracle网站转了好一会才找 ...
oracle10g官方客户端配置
纲要:
AssignFile: 关联
Rewrite: 创建并打开一个新文件, 如已存在则覆盖
Reset: 打开已存在的文件; 追加也要用它先打开, 然后再移动指针; Append 是文本文件专用的
CloseFile: 关闭
FileSize: 记录数
FilePos: 返回文件的当前位置
Seek: 把文件指针移到指定位置(只用于结构化文件)
Eof: 文件尾
Read: 读
Write: 写
另外: 包含长字符串、变量、类实例、接口或动态数组的记录不能写入类型文件中!
//操作示例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TPersonRec = packed record name: string[12]; age: Word; birthday: TDate; end; //先定义一个结构 var DataFile: file of TPersonRec; //声明 DataFile 用来读写 TPersonRec 结构数据 PersonRec: TPersonRec; //声明结构变量 FileName: string = 'c:\temp\test.dat'; //准备操作的文件 //创建并写入文件 procedure TForm1.Button1Click(Sender: TObject); begin AssignFile(DataFile,FileName); //关联文件 Rewrite(DataFile); //建立文件, 如果存在就覆盖 PersonRec.name := '张三'; PersonRec.age := 18; PersonRec.birthday := StrToDate('1990-1-1'); Write(DataFile,PersonRec); //写入 PersonRec.name := '李四儿'; PersonRec.age := 81; PersonRec.birthday := StrToDate('1927-11-11'); Write(DataFile,PersonRec); //写入 CloseFile(DataFile); //关闭 end; //追加数据 procedure TForm1.Button2Click(Sender: TObject); begin AssignFile(DataFile,FileName); Reset(DataFile); //Append 只对文本文件 Seek(DataFile,FileSize(DataFile)); //移到文件尾, 这里的 FileSize 表示有多少条记录 PersonRec.name := '王二麻子'; PersonRec.age := 1; PersonRec.birthday := StrToDate('2006-12-19'); Write(DataFile,PersonRec); PersonRec.name := '嫦娥'; PersonRec.age := 2000; PersonRec.birthday := StrToDate('0007-7-7'); Write(DataFile,PersonRec); CloseFile(DataFile); end; //读取数据(用Memo显示数据吧) procedure TForm1.Button3Click(Sender: TObject); begin AssignFile(DataFile,FileName); Reset(DataFile); Memo1.Clear; Read(DataFile,PersonRec); //读取一条, 指针自动移到下一条 Memo1.Lines.Add(PersonRec.name); Memo1.Lines.Add(IntToStr(PersonRec.age)); Memo1.Lines.Add(DateToStr(PersonRec.birthday)); Read(DataFile,PersonRec); //读取下一条 Memo1.Lines.Add(PersonRec.name); Memo1.Lines.Add(IntToStr(PersonRec.age)); Memo1.Lines.Add(DateToStr(PersonRec.birthday)); Seek(DataFile,FileSize(DataFile)-1); //指针移到最好一条 Read(DataFile,PersonRec); Memo1.Lines.Add(PersonRec.name); Memo1.Lines.Add(IntToStr(PersonRec.age)); Memo1.Lines.Add(DateToStr(PersonRec.birthday)); CloseFile(DataFile); {显示结果: 张三 18 1990-1-1 李四儿 81 1927-11-11 嫦娥 2000 0007-7-7 } end; //修改数据 procedure TForm1.Button4Click(Sender: TObject); begin AssignFile(DataFile,FileName); Reset(DataFile); Seek(DataFile,3); //指针移到第四条 Read(DataFile,PersonRec); //读取 PersonRec.age := 0; PersonRec.birthday := StrToDate('2007-10-24'); Seek(DataFile,3); //指针移到第四条 Write(DataFile,PersonRec); //写入 CloseFile(DataFile); end; //读取所有数据 procedure TForm1.Button5Click(Sender: TObject); begin AssignFile(DataFile,FileName); Reset(DataFile); Memo1.Clear; while not Eof(DataFile) do begin Memo1.Lines.Add('第 ' + IntToStr(FilePos(DataFile)+1) + ' 条:'); Read(DataFile,PersonRec); Memo1.Lines.Add(PersonRec.name); Memo1.Lines.Add(IntToStr(PersonRec.age)); Memo1.Lines.Add(DateToStr(PersonRec.birthday)); Memo1.Lines.Add(''); //来个空行 end; CloseFile(DataFile); {显示结果: 第 1 条: 张三 18 1990-1-1 第 2 条: 李四儿 81 1927-11-11 第 3 条: 王二麻子 1 2006-12-19 第 4 条: 嫦娥 0 2007-10-24 } end; end.
发表评论
-
关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
2011-01-09 15:58 645unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(3) 通过内存流读取文件
2011-01-09 15:57 901unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
2011-01-09 15:56 1137TStream 是一个抽象的基类, 不能直接生成对象. 在具体 ... -
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
2011-01-09 15:54 1115前言:所谓"流", 就是一段数据或是一块内 ... -
无类型文件读写
2011-01-09 15:48 726unit Unit1;interfaceuses Windo ... -
文本文件读写
2011-01-09 15:45 717前言:Delphi 支持三种文件类型: 文本文件、记录文件、无 ... -
ini 文件操作
2011-01-09 15:42 808unit Unit1;interfaceuses Windo ... -
memo ctrl+a
2011-01-09 15:25 651在按键事件中处理全选Memo1.SelectAll;Memo1 ... -
单元文件结构
2011-01-09 15:13 566unit Unit1; interface {接口 ... -
Delphi初学者应小心的六大陷阱
2011-01-09 15:03 610初学DelphiI的人,由于各种原因,对DelphiI中的许多 ... -
格式化函数
2011-01-09 10:04 672var s: string;begin //指令类型 ty ... -
Delphi 的类型与指针
2011-01-03 22:53 1035先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见 ... -
关于 Lo、Hi、LoWord、HiWord
2011-01-03 22:46 848Cardinal 是 4 字节无符号的整型, 先看一个例数: ... -
Delphi中票据凭证的精确打印
2010-04-01 17:25 773一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在 ... -
beep 音乐
2009-09-23 12:55 1205windows.beep(523,500); ... -
delphi中第三方控件的安装方法 --转
2009-07-12 10:40 8071 只有一个DCU文件的组件。DCU文件是编译好的单元文件 ... -
delphi 需要注意的地方
2009-05-26 14:29 7341.类的概念 如:在窗体Form1中设置属 ...
相关推荐
SQL(Structured Query Language)结构化查询语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。同时也是数据库脚本文件的扩展名。
结构化查询语言(Structured Query Language)简称SQL,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本文件的扩展名。 结构化查询...
结构化查询语言(Structured Query Language)简称SQL,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统,同时也是数据库脚本文件的扩展名。
结构化查询语言(Structured Query Language)简称SQL,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。 结构化查询语言是高级的非过程化编程语言,...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈɛs kjuː ˈɛl/ "S-Q-L"),结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈɛs kjuː ˈɛl/ "S-Q-L"),结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈɛs kjuː ˈɛl/ "S-Q-L"),结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈɛs kjuː ˈɛl/ "S-Q-L"),结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈɛs kjuː ˈɛl/ "S-Q-L"),结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是数据库脚本...
2.2.2 一对一联系 2.2.3 一对多联系 2.2.4 多对多联系 2.3 规范化准则 2.3.1 范式 2.3.2 第一范式 2.3.3 第二范式 2.3.4 第三范式 2.3.5 第四范式 2.4.小结第2篇 数据库管理篇第3章 数据库的相关操作 3.1 创建数据库...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈes kjuː ˈel/ "S-Q-L"),是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是...
文件服务器资源管理器包括以下功能: 文件分类基础结构 文件分类基础结构通过分类流程的自动化提供对数据的洞察力,从而让你更有效地管理数据。你可以基于此分类对文件进行分类并应用策略。示例策略包括限制访问文件...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈes kjuː ˈel/ "S-Q-L"),是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是...
结构化查询语言(Structured Query Language)简称SQL(发音:/ˈes kjuː ˈel/ "S-Q-L"),是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统;同时也是...
序列化存取可以做到类对象、结构、数组等内存实体整体保存为二进制的文件,而不需转换,读取的时候,通过反序列化直接从文件构建对象,而不需要重新通过转换而来的数据构建,这样既节省了转换时间,运行速度又比较快...
外存上的文件, 并为操作系统和用户提供文件的存取、 共享和 保护等功能。文件系统设计的好坏对系统安全和性能有着很 2. 1 大影响。 Linux 是一个迅速发展的、 system_setup( ) 例 程进 行文件 系统 初始化, 它...
4. 数据库系统具有 数据结构化 、 数据共享 、 数据独立性 、数据粒度小、独立的数据操作界面、由DBMS统一管理等优点。(08年1月、09.7考) 5. 在文件管理阶段、文件之间是相互 独立 的,在数据库管理阶段,文件之间...
接下来学习最后一个技术:分布式结构化数据表BigTable 谷歌技术”三宝”之BigTable Google Bigtable 中文版 引进BigTable GFS(2003年发表)使用商用硬件集群存储海量数据。文件系统将数据在节点之间冗余复制。...
HBase 是一个可以进行随机访问的存取和检索数据的存储平台,存储结构化和半结构化的数据,因此一般的网站可以将网页内容和日志信息都存在 HBase 里。 如果数据量不是非常庞大,HBase 甚至可以存储非结构化的数据。...
主要实现功能有:随机食物、自动爬行、分数、重新开始、排行榜、初始化反序列化、存取档序列化和反序列化等。数据结构采用C语言结构体、动态数组、环形数组等思想进行架构。游戏初始化采用文本文件、文件存储及读取...