- 浏览: 197371 次
- 性别:
- 来自: 济南
文章分类
最新评论
-
Kesin97:
不错 很有用。选择性锁也不太影响性能。
sqlserver的updlock锁 (转) -
fox-idea:
学习
用PC作数据库服务器的容灾问题 -
xwei78:
话说这个下载地址不太好找啊,我去oracle网站转了好一会才找 ...
oracle10g官方客户端配置
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;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
FileName = 'c:\temp\binary.dat';
var
F: file;
//用无类型的方式写入一个字节
procedure TForm1.Button1Click(Sender: TObject);
var
b: Byte;
begin
AssignFile(F,FileName);
Rewrite(F,1); //第二个参数表示: 把 1 个字节当作一个写入单位
b := 65;
BlockWrite(F,b,1); //写入; 参数2是要写入的内容; 参数3表示写入 1 次.
CloseFile(F);
//落实 binary.dat 的大小: 1个字节; 内容: A (可用记事本打开)
end;
//用无类型的方式读出一个字节
procedure TForm1.Button2Click(Sender: TObject);
var
b: Byte;
begin
AssignFile(F,FileName);
Reset(F,1); //把 1 个字节当作一个读取单位
BlockRead(F,b,1); //读取一次; 放入 b
ShowMessage(Chr(b)); //A
CloseFile(F);
end;
//写入更多字节
procedure TForm1.Button3Click(Sender: TObject);
var
buffer: array[0..127] of Byte;
i: Integer; //储存多个字节, 需要用数组了
begin
for i := Low(buffer) to High(buffer) do
buffer[i] := i; //给数组赋值, 注意现在数组大小是 128
AssignFile(F,FileName);
Rewrite(F,32); //规定把 32 个字节当作一个读取单位, 注意这个数字和缓冲区大小必须是倍数关系
BlockWrite(F,buffer,4); //需要写入几次呢? 128/32=4
CloseFile(F);
//写成的文件肯定是128字节大小, 但用记事本可能看不了, 因为这个二进制不是文本
end;
//读出
procedure TForm1.Button4Click(Sender: TObject);
var
buffer: array[0..127] of Byte;
i: Integer;
begin
AssignFile(F,FileName);
Reset(F,4); //把 4 字节当作一个读取单位; 为了那个倍数关系, 这里一般是 1
BlockRead(F,buffer,32); //当然需要 32 次才能读完
CloseFile(F);
//怎么显示一下呢? 还是用 Memo 吧; 显示字符? 数字? 还是十六进制吧
Memo1.Clear;
for i := Low(buffer) to High(buffer) do
begin
Memo1.Lines.Add(IntToHex(buffer[i],1));
end;
(*显示结果: 0 1 2 3 ... 7D 7E 7F *)
end;
//读写 Char 与实际读写字节
procedure TForm1.Button5Click(Sender: TObject);
var
cArr1,cArr2: array[0..4] of Char;
i: Integer;
num: Integer; //记录实际读写的字节数
begin
for i := Low(cArr1) to High(cArr1) do
cArr1[i] := Chr(65+i); //填充 A B C D E
AssignFile(F,FileName);
Rewrite(F,1); //建立
BlockWrite(F,cArr1,Length(cArr1),num); //参数4: num 是实际写入的字节数
ShowMessage(IntToStr(num)); //5
Reset(F,1); //重新打开
BlockRead(F,cArr2,Length(cArr2),num); //参数5: num 是实际读出的字节数
ShowMessage(IntToStr(num)); //5
ShowMessage(cArr2); //ABCDE
CloseFile(F);
end;
//写入长字符串, 读出其十六进制码
procedure TForm1.Button6Click(Sender: TObject);
var
p: PChar;
b: Byte;
begin
p := '万一的 Delphi 博客';
AssignFile(F,FileName); //关联文件名
Rewrite(F,1); //创建并打开
BlockWrite(F,p,Length(p)); //写入
FileMode := fmOpenRead; //这时可以设文件为只读
Reset(F,1); //为读取打开
Memo1.Clear;
while not Eof(F) do
begin
BlockRead(F,b,1);
Memo1.Text := Memo1.Text + IntToHex(b,2) + ' ';
end;
//显示结果: 70 F0 45 00 08 F7 12 00 A6 FB 43 00 A0 1A E5 00 FF C5
CloseFile(F);
end;
//复制个文件
procedure TForm1.Button7Click(Sender: TObject);
var
FromF,ToF: file;
NumRead,NumWritten: Integer;
Buffer: array[1..2048] of Byte;
begin
AssignFile(FromF, 'c:\temp\test1.dat'); //假定有这个文件
Reset(FromF, 1);
AssignFile(ToF, 'c:\temp\test2.dat');
Rewrite(ToF, 1);
repeat
BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead);
BlockWrite(ToF, Buffer, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
{ NumRead=0 表示读完了; NumWritten <> NumRead 表示磁盘空间不够了 }
CloseFile(FromF);
CloseFile(ToF);
end;
end.
发表评论
-
关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
2011-01-09 15:58 644unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(3) 通过内存流读取文件
2011-01-09 15:57 901unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
2011-01-09 15:56 1136TStream 是一个抽象的基类, 不能直接生成对象. 在具体 ... -
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
2011-01-09 15:54 1115前言:所谓"流", 就是一段数据或是一块内 ... -
结构化文件存取
2011-01-09 15:47 630纲要:AssignFile: 关联Rewrite: 创建并打开 ... -
文本文件读写
2011-01-09 15:45 717前言:Delphi 支持三种文件类型: 文本文件、记录文件、无 ... -
ini 文件操作
2011-01-09 15:42 807unit Unit1;interfaceuses Windo ... -
memo ctrl+a
2011-01-09 15:25 651在按键事件中处理全选Memo1.SelectAll;Memo1 ... -
单元文件结构
2011-01-09 15:13 565unit Unit1; interface {接口 ... -
Delphi初学者应小心的六大陷阱
2011-01-09 15:03 609初学DelphiI的人,由于各种原因,对DelphiI中的许多 ... -
格式化函数
2011-01-09 10:04 672var s: string;begin //指令类型 ty ... -
Delphi 的类型与指针
2011-01-03 22:53 1034先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见 ... -
关于 Lo、Hi、LoWord、HiWord
2011-01-03 22:46 847Cardinal 是 4 字节无符号的整型, 先看一个例数: ... -
Delphi中票据凭证的精确打印
2010-04-01 17:25 773一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在 ... -
beep 音乐
2009-09-23 12:55 1205windows.beep(523,500); ... -
delphi中第三方控件的安装方法 --转
2009-07-12 10:40 8061 只有一个DCU文件的组件。DCU文件是编译好的单元文件 ... -
delphi 需要注意的地方
2009-05-26 14:29 7331.类的概念 如:在窗体Form1中设置属 ...
相关推荐
python方法.Python读写文件方法读取各种类型文件
文件读写操作,文件内容操作,文件的创建、查找及删除,同时显示两个文件的内容,显示目录内同类型文件,文件分割,文件加密,合并两个文件信息,统计文件内容,格式化读写文件,随机读写文件,将数据写入磁盘文件,...
Android文件类型读写
C++文件读写的相关操作,可以直接使用,适合初学者
简化了原有类CinitFile的代码 该类可以向ini文件中读写 float int cstring类型 该资源中附有使用说明手册和程序demo 作者 张步阳 梅爽
使用QT实现pcm和wav文件相互转换,读取wav音频格式等。其中有些数据类型属于qt特有如qint32, QString等完全可以转成int,std::string,移植的话转成相应类型即可。
delphi读写取流记录文件TFileStream img格式图片追加存储
VC++使用CStdioFile读写文件,对读出的数据进行相应的算术运算
自编的C++读写DXF文件CAD软件下的DXF文件的读写 菜单类型
C++的各种文件读写操作总结,点到即可,可以举一反三
VC++ 文件不同方式读写 合成了有6同方式的读写
Delphi文件读写 - 类型文件读写 - 按数据结构存取
QT使用结构体生成读写配置文件数据代码
C#的通用ini配置文件读写类,重载了不同类型的读写方法,比较方便
该例程在qt creator2.4.1下调试成功,用重载的方法实现了QDataStream读写用户自定义的数据类型,使操作更加方便。
c语言文件读写操作代码知识领域:C语言编程 技术关键词:文件IO操作、文件指针、读写模式 内容关键词:读取文件、写入文件、追加内容、文件管理、代码示例 用途:在软件开发和数据处理中,对文件的读写操作是基本且...
此项目包括文件读写和本地sp存储demo,仅供 学习,适合初学者
用于读写ini文件,代码是c++的,很经典的一个例子,我项目开发就是用的这个类
主要介绍了Android应用程序中读写txt文本文件的基本方法讲解,基本上依靠context.openFileInput()和context.openFileOutput()两个方法为主,需要的朋友可以参考下
delphi7 ini文件的3种类型读写