帮忙看看编码问题

w_zhanhai · 发表于 2013-4-20 19:32:24

文件操作

声明了：
procedure OpenMyFile(const MyFileName : String; var fff : ZhuanHuanTable);

定义过程时候：
procedure OpenMyFile(const FileName : String; var f : ZhuanHuanTable);
begin
AssignFile(fff,MyFileName); ——————lazarus 不认 MyFileName

看帖子好像是大家说的编码问题，，怎么解决啊？

wylton · 发表于 2013-4-21 05:46:19

声明了：
procedure OpenMyFile(const MyFileName : String; var fff : ZhuanHuanTable);

定义过程时候：
procedure OpenMyFile(const MyFileName : String; var fff : ZhuanHuanTable);
var
f:filename;
begin
AssignFile(f,MyFileName);
********************
end;

调用:
var
afile:string;
atable:ZhuanHuanTable;
begin
OpenMyFile(afile,atable);
end;

w_zhanhai · 发表于 2013-4-21 07:52:12

主要是这一句AssignFile(f,MyFileName);不认定义成String的MyFileName

qqqqq · 发表于 2013-4-21 19:57:35

AssignFile(f,utf8toansi(MyFileName)); 试试

东兰梦舞 · 发表于 2013-4-29 09:57:36

文件头没有{$H+}吗？

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）