H
haobi
Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大虾两个问题：
1、如何定义一个文件为二进制类型？
2、如何把一个字符串如“d大西洋df”以二进制形式保存到文件中？
1、如何定义一个文件为二进制类型？
2、如何把一个字符串如“d大西洋df”以二进制形式保存到文件中？
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
T
thtfsyh
Unregistered / Unconfirmed
GUEST, unregistred user!
1打开的时候定义
2以二进制类型文件打开后，直接写您要写的东西就是了
2以二进制类型文件打开后，直接写您要写的东西就是了
H
haobi
Unregistered / Unconfirmed
GUEST, unregistred user!
我要问的就是“如何定义”(包括在打开或新建)?
H
hhzh426
Unregistered / Unconfirmed
GUEST, unregistred user!
用TFILESTREAM，看看帮助就全有了！
W
wangxd
Unregistered / Unconfirmed
GUEST, unregistred user!
>>如何定义一个文件为二进制类型？
可以说任何文件都是二进制类型
FileCreate，创建文件
FileClose，关闭文件
FileOpen，打开文件
FileRead，FileWrite读写文件
使用方法看帮助
可以说任何文件都是二进制类型
FileCreate，创建文件
FileClose，关闭文件
FileOpen，打开文件
FileRead，FileWrite读写文件
使用方法看帮助
J
JohnsonGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
1。用TFileStream创建的文件都是二进制文件。
2。TFileStream.Write(s, Length(s));
2。TFileStream.Write(s, Length(s));
B
BaKuBaKu
Unregistered / Unconfirmed
GUEST, unregistred user!
文件其实是无类型的，只是你怎么看它而已。
Txt 和 Exe 有区别吗？里面不都是 0 和 1 的序列，只不过各自的含义不同罢了。
所以你用 TFileStream 打开也好，创建也好，得到的无非是一个普通意义的文件，里面的
内容随便你自己写。你可以写几个 Ascll 字符，然后保存为 .txt ，它就是一个文本文件，
甚至如果你了解 Exe 的内部格式，你可以用 TFileStream 写出一个可执行文件来。
Txt 和 Exe 有区别吗？里面不都是 0 和 1 的序列，只不过各自的含义不同罢了。
所以你用 TFileStream 打开也好，创建也好，得到的无非是一个普通意义的文件，里面的
内容随便你自己写。你可以写几个 Ascll 字符，然后保存为 .txt ，它就是一个文本文件，
甚至如果你了解 Exe 的内部格式，你可以用 TFileStream 写出一个可执行文件来。
H
haobi
Unregistered / Unconfirmed
GUEST, unregistred user!
如何用TFileStream创建二进制文件？给个“完整的例子”吧！我的Pascal水平不高哟。
M
morphia2000
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;
C
Crab
Unregistered / Unconfirmed
GUEST, unregistred user!
关键在于你如何读这个文件，而不是写
H
haobi
Unregistered / Unconfirmed
GUEST, unregistred user!
morphia2000大侠:我用的Turbo Pascal 7.0,是能否举一个Dos下的例子？
G
gcq
Unregistered / Unconfirmed
GUEST, unregistred user!
哈哈，PASCAL！
也有FILE OPEN的！
也有FILE OPEN的！
J
JohnsonGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
大概是这样吧。
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;
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;
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
haobi:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。