TFileStream用法
来源:互联网 发布:卖汉服的淘宝店 编辑:程序博客网 时间:2024/06/05 00:11
// 写入中文
procedure TForm1.btn1Click(Sender: TObject);
var
Stream : TFileStream;
fn : string;
fname : string;
Size : Integer;
Buffer : TBytes;
Encoding : TEncoding;
begin
fn := ExtractFilePath(Application.ExeName) + 'config.dat';
try
Stream := TFileStream.Create(fn, fmCreate);
Stream.Position := 0;
fname := '这是一个测试';
Encoding := TEncoding.Unicode;
Buffer := Encoding.GetBytes(fname);
Size := Length(Buffer);
Stream.WriteBuffer(Pointer(Buffer)^, Size);
finally
Stream.Free;
end;
end;
// 读取中文
procedure TForm1.btn2Click(Sender: TObject);
var
Stream : TFileStream;
fn : string;
fname : string;
Size : Integer;
Buffer : TBytes;
Encoding : TEncoding;
begin
fn := ExtractFilePath(Application.ExeName) + 'config.dat';
try
Stream := TFileStream.Create(fn, fmOpenRead);
Stream.Position := 0;
// fname := '这是一个测试';
// Encoding := TEncoding.Unicode;
// Buffer := Encoding.GetBytes(fname);
// Size := Length(Buffer);
Size := 12;
SetLength(Buffer, Size);
Stream.ReadBuffer(Pointer(Buffer)^, Size);
Size := TEncoding.GetBufferEncoding(Buffer, Encoding);
// fname := Encoding.GetString(Buffer, Size, Length(Buffer) - Size);
fname := WideStringOf(Buffer);
finally
Stream.Free;
end;
end;
阅读全文
0 0
- TFileStream用法
- TFileStream
- TFileStream
- TFileStream
- TFileStream[转]
- TFileStream复制文件
- TFileStream文件流读写
- delphi的TFileStream
- delphi的TFileStream .
- [Delphi]TFileStream 内存流
- 利用TFileStream快速复制文件
- 利用TFileStream快速复制文件
- delphi的TFileStream 内存流
- delphi的TFileStream 内存流
- VCL类学习之(十) TFileStream
- Delphi TStream,TMemoryStream,TFileStream等 详细介绍
- delphi6中用TFileStream进行文件读写遇到的诡异问题
- 使用TFileStream读取文件,分析自定义结构的数据文件。
- codeforces738C
- As Easy As Possible 倍增法
- 关系的三类完整性约束
- JavaWeb开发之Maven工程(SSM框架)
- Python类实现动物种类的派生
- TFileStream用法
- C++内存管理之结构体内存释放
- JFinal解决IE浏览器下载问题
- Kali-Linux安装中文输入法
- 润乾V5如何实现第一次预览报表不展示数据
- Draw Something Cheat
- hdu 1202
- iOS 事件处理~简介
- RE:JAVA学习-HashMap用法