求助各位大神，delphi7的recode中使用procedure

[firePhoenix1981]

TLogStrategy = record
fDir : LOG_SHORT_STRING;
fPrefix : LOG_SHORT_STRING;
fYearLen : integer;
fMonthLen: integer;
fDayLen : integer;
fHourLen : integer;
fMinLen : integer;
fSecLen : integer;
fLogLevel: LOG_SHORT_STRING;
fLogHead : boolean;
fIsvalid : boolean;
procedure Init(dataPath: string=''); -------------
procedure LoadFromConfig(inifile,section: string);
procedure WriteToConfig(inifile,section: string);

end;

End expected but “procedure” found。


网上有说这个特性是delphi7以后开始支持的，但是我有个同事的delphi7下面却说可以
编译成功。哪位有没有碰到过？如何解决?

另外从在delphi2010里面，char默认都是wide char，有没有设置可以变换？

我最近才开始弄delphi，发现弄个环境真是痛苦

[山东蓝鸟贵薪]

[Quote=引用楼主 firephoenix1981 的回复:]
TLogStrategy = record
fDir : LOG_SHORT_STRING;
fPrefix : LOG_SHORT_STRING;
fYearLen : integer;
fMonthLen: integer;
fDayLen : integer;
fHourLen : integer;
fMinLen : integer;
fSe……
[/Quote]
将这个procedure Init(dataPath: string=''); -------------
修改成:
procedure Init(dataPath: string=''); //-------------

[firePhoenix1981]

-------------　是我故意加的　　：（

[山东蓝鸟贵薪]

End expected but “procedure” found
结束时的预期，但“程序”找到

[山东蓝鸟贵薪]

你"重新建立一个空的窗体"再编译一下试试,若没有出错的话,就是你的那个现在的
程序就有问题,否则DELPHI系统有问题

[tcds31]

procedure Init(dataPath: string='');
procedure LoadFromConfig(inifile,section: string);
procedure WriteToConfig(inifile,section: string);

TLogStrategy = record
fDir : LOG_SHORT_STRING;
fPrefix : LOG_SHORT_STRING;
fYearLen : integer;
fMonthLen: integer;
fDayLen : integer;
fHourLen : integer;
fMinLen : integer;
fSecLen : integer;
fLogLevel: LOG_SHORT_STRING;
fLogHead : boolean;
fIsvalid : boolean;
fInit:Init;
fLoadFromConfig:LoadFromConfig;
fWriteToConfig:WriteToConfig;
end;

[tcds31]

错了，过程定义这样
Init=procedure(dataPath: string='');
LoadFromConfig= procedure (inifile,section: string);
WriteToConfig=procedure (inifile,section: string);

[无欲无求]

看着代码我头疼


静脉曲张袜排行榜http://shoushen1688.com
美白面膜排行榜www.5aiaigo.com

[chenzhuo]

Init: procedure(dataPath: string='');

[firePhoenix1981]

确认了，这是delphi7以后版本的一个特性，下载了个turbo delphi皆可以了。
谢谢大家