错误!!!(100)

J

jsjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #1

代码: procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF}; ParamCount: Integer; Params: array of Double; var Value: Double);错误:Expected ')' but STRING found.

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #2

procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF}; ParamCount: Integer; Params: array of Double; var Value: Double[red]);[/red]

 

J

jsjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #3

执行不了 谢谢!

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #4

procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF}; ParamCount: Integer; Params: array of Double; var Value: Double[red])[/red];//我的意思是注意红色部分！你的括弧是成对的吗？

 

J

jsjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #5

你的意思看FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF};主要是delphi 7不支持WineStirng这个

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #6

怎么不支持呢?是支持的吧~~

 

J

jsjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #7

那怎么报错呢?那有问题呢?谢谢!

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #8

FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF};这一块单独出来,试一下~~

 

L

liuls

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #9

procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF}; ParamCount: Integer; Params: array of Double; var Value: Double);还是把它拆出两个来吧.{$IFDEF _UNICODE} procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: WideString; ParamCount: Integer; Params: array of Double; var Value: Double);{$ELSE} procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: String; ParamCount: Integer; Params: array of Double; var Value: Double);{$ENDIF};

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #10

{$define IFDEF _UNICODE} //不管有没有本行D7中都通过， D2007也通过 procedure PivotMap1CalcMeasureGetFunction(MeasureIndex, Col, Row: Integer; FunctionName: {$IFDEF _UNICODE}WideString{$ELSE}String{$ENDIF}; ParamCount: Integer; Params: array of Double; var Value: Double); begin end;

 

J

jsjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-03

• #11

不错