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

Question

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，发现弄个环境真是痛苦

Answer 1

将这个procedure Init(dataPath: string=''); -------------
修改成:
procedure Init(dataPath: string=''); //-------------

Answer 2

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

Answer 3

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

Answer 4

   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;

Answer 5

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

Answer 6

看着代码我头疼
静脉曲张袜排行榜http://shoushen1688.com
美白面膜排行榜www.5aiaigo.com

Answer 7

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

Answer 8

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