1、如何定义一个文件为二进制类型?2、如何把一个字符串如“d大西洋df”以二进制形式保存到文件中?(200分)

  • 主题发起人 主题发起人 haobi
  • 开始时间 开始时间
H

haobi

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大虾两个问题:
1、如何定义一个文件为二进制类型?
2、如何把一个字符串如“d大西洋df”以二进制形式保存到文件中?
 
1打开的时候定义
2以二进制类型文件打开后,直接写您要写的东西就是了
 
我要问的就是“如何定义”(包括在打开或新建)?
 
用TFILESTREAM,看看帮助就全有了!
 
>>如何定义一个文件为二进制类型?
可以说任何文件都是二进制类型
FileCreate,创建文件
FileClose,关闭文件
FileOpen,打开文件
FileRead,FileWrite读写文件
使用方法看帮助
 
1。用TFileStream创建的文件都是二进制文件。
2。TFileStream.Write(s, Length(s));
 
文件其实是无类型的,只是你怎么看它而已。
Txt 和 Exe 有区别吗?里面不都是 0 和 1 的序列,只不过各自的含义不同罢了。
所以你用 TFileStream 打开也好,创建也好,得到的无非是一个普通意义的文件,里面的
内容随便你自己写。你可以写几个 Ascll 字符,然后保存为 .txt ,它就是一个文本文件,
甚至如果你了解 Exe 的内部格式,你可以用 TFileStream 写出一个可执行文件来。
 
如何用TFileStream创建二进制文件?给个“完整的例子”吧!我的Pascal水平不高哟。
 
procedure WriteFile;
const
LEN = 100;
var
fs: TStream;
Str: array [0..LEN-1] of Char;
begin
StrCopy(Str, 'This is a example of the program.');
fs := TFileStream.Create('c:/dd.dat', fmCreate);
try
fs.Write(Str, LEN);
finally
fs.Free;
end;
end;
 
关键在于你如何读这个文件,而不是写
 
morphia2000大侠:我用的Turbo Pascal 7.0,是能否举一个Dos下的例子?
 
哈哈,PASCAL!
也有FILE OPEN的!
 
大概是这样吧。
var
F: file of Char;
begin
Assign(F, FileName);
{$I-} Rewrite(F)
{$I+}
if IOResult <> 0 then begin
WriteLn('Can not open the file!');
Halt(1);
end;
Write(F, 'd大西洋df');
Close(F);
end;
 
haobi:如果你还要继续讨论请定期提前你的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
后退
顶部