求助各位大神，delphi7的recode中使用procedure-CSDN论坛

⋅求助各位大神，delphi7的recode中使用procedure ⋅propertypage自动化设置，点击OK时有问题（太穷了，分以后奉上） ⋅哪位XDJM好心给点分 更多帖子 关注私信空间博客 firephoenix1981 本版专家分：0 结帖率 94.12%: 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，发现弄个环境真是痛苦

0 2011-06-19 15:34:43

回复数 9 只看楼主引用举报楼主

⋅谁能破解并读取传奇文件Dlgz.Pak的密码 ⋅只是分享一个小程序delphi7编写的，功能就是当前加一个数等于一个新时间 ⋅C#编写两个服务，A服务程序实时检测B程序，防止B服务被恶意停止 A服务实时检测B服务，如果B服务停止，就启动B服务当然A服务也必须是永久启动的 更多帖子 关注私信空间博客 山东蓝鸟贵薪 本版专家分：14360 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: 引用楼主 firephoenix1981 的回复:
TLogStrategy = record
  fDir : LOG_SHORT_STRING;
  fPrefix : LOG_SHORT_STRING;
  fYearLen : integer;
  fMonthLen: integer;
  fDayLen : integer;
  fHourLen : integer;
  fMinLen : integer;
  fSe……

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

0 2011-06-19 17:33:02

只看TA 引用举报 #1    得分 10

⋅求助各位大神，delphi7的recode中使用procedure ⋅propertypage自动化设置，点击OK时有问题（太穷了，分以后奉上） ⋅哪位XDJM好心给点分 更多帖子 关注私信空间博客 firephoenix1981 本版专家分：0: -------------　是我故意加的　　：（

0 2011-06-19 17:42:42

只看TA 引用举报 #2 得分 0

⋅谁能破解并读取传奇文件Dlgz.Pak的密码 ⋅只是分享一个小程序delphi7编写的，功能就是当前加一个数等于一个新时间 ⋅C#编写两个服务，A服务程序实时检测B程序，防止B服务被恶意停止 A服务实时检测B服务，如果B服务停止，就启动B服务当然A服务也必须是永久启动的 更多帖子 关注私信空间博客 山东蓝鸟贵薪 本版专家分：14360 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: End expected but “procedure” found
结束时的预期，但“程序”找到

0 2011-06-19 17:47:31

只看TA 引用举报 #3 得分 0

⋅谁能破解并读取传奇文件Dlgz.Pak的密码 ⋅只是分享一个小程序delphi7编写的，功能就是当前加一个数等于一个新时间 ⋅C#编写两个服务，A服务程序实时检测B程序，防止B服务被恶意停止 A服务实时检测B服务，如果B服务停止，就启动B服务当然A服务也必须是永久启动的 更多帖子 关注私信空间博客 山东蓝鸟贵薪 本版专家分：14360 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: 你"重新建立一个空的窗体"再编译一下试试,若没有出错的话,就是你的那个现在的
程序就有问题,否则DELPHI系统有问题

0 2011-06-19 17:49:11

只看TA 引用举报 #4 得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 tcds31 本版专家分：151:    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;

0 2011-06-19 17:56:03

只看TA 引用举报 #5    得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 tcds31 本版专家分：151: 错了，过程定义这样
Init=procedure(dataPath: string='');
  LoadFromConfig= procedure (inifile,section: string);
   WriteToConfig=procedure (inifile,section: string);

0 2011-06-19 17:57:07

只看TA 引用举报 #6    得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 无欲无求 本版专家分：0: 看着代码我头疼

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

0 2011-06-19 18:03:46

只看TA 引用举报 #7 得分 0

⋅Delphi7,Delphi6 原装配件，含安装光盘和官方书籍 ⋅有正版Delphi6、7出让 ⋅[分享]基于内核对象WaitableTimer实现的Timer组件 更多帖子 关注私信空间博客 chenzhuo 本版专家分：11539 红花 2007年5月 Delphi大版内专家分月排行榜第一 黄花 2007年6月 Delphi大版内专家分月排行榜第二: Init: procedure(dataPath: string='');

0 2011-06-19 18:57:36

只看TA 引用举报 #8 得分 0

⋅求助各位大神，delphi7的recode中使用procedure ⋅propertypage自动化设置，点击OK时有问题（太穷了，分以后奉上） ⋅哪位XDJM好心给点分 更多帖子 关注私信空间博客 firephoenix1981 本版专家分：0: 确认了，这是delphi7以后版本的一个特性，下载了个turbo delphi皆可以了。
谢谢大家

0 2011-07-15 10:24:43

只看TA 引用举报 #9 得分 0