|
共有评论6条
当前显示最后6条评论
|
| leaya00 |
2005/3/12 10:48:24 |
| 不错，很有价值呀！你自己写的？还是搜集的？哪来的？ |
| tim001 |
2005/3/15 10:56:49 |
| thank you! |
| iloveqq |
2005/3/16 15:08:14 |
我怎么不能编译啊？
if Str = _START then Start := True
else
if Str = _STOP then Start := False;
总是提示错误 |
| koman |
2005/3/17 15:18:08 |
楼上的，很简单，我用D7编译出错明明说了出来，无法分配值给左边的标识，明显标识是有定义的，找找看而且是采用预编译选择，多数是在给出的预编译没有写好，常量当变量用，作者愿意是作为变量的吧，不然也不会给它赋值，把其出错的在HeadVars.pas里面的补充或改过来就行了，若有误解请指正。我这里有两处：
{$IFDEF VER140}
var Start: Boolean; //初值默认为false
{$ELSE}
var Start : Boolean= True; //补回个var
{$ENDIF}
{$IFDEF VER140}
var
LeadingSpace: Boolean; { 3.10 }
InArray: Boolean;
Comment: Boolean; {!ACM -- processing a comment }
CDECL: Boolean; {!ACM -- seems to be a reserved word }
Emptytype: Word;
Nested: Integer; {!ACM -- current level of nesting }
{$ELSE}
var //const改为var
LeadingSpace: Boolean = TRUE; { 3.10 }
InArray: Boolean = FALSE;
Comment: Boolean = FALSE; {!ACM -- processing a comment }
CDECL: Boolean = FALSE; {!ACM -- seems to be a reserved word }
Emptytype: Word = 0;
Nested: Integer = 0; {!ACM -- current level of nesting }
{$ENDIF} |
| hhqbox |
2005/9/26 9:20:23 |
我怎么不能编译啊？
{$include string.h}
总是提示错误 |
| yzsind |
2006/1/12 9:31:25 |
| 在D7中将所有的{$IFDEF VER140}改为{$IFDEF VER150} |
| 我要发表评论 |
查看全部评论 |
