【搞定】这句话在X3下如何修改**

jianth2005 · 发表于 2008-3-19 09:47:41

type
  TExprErrorType = (eeExprOver,eeExprBadExp,eeExprUnknown);
const
  ExprErrorMsg: array[eeExprOver..eeExprUnknown] of pchar
  =('Expression Overflow.',
'Invalid Expression.',
'Unknown Error

.'
);

jiahaiminghr · 发表于 2008-3-19 14:30:39

TExprErrorType = (eeExprOver,eeExprBadExp,eeExprUnknown);

implementation

procedure TMainForm.Button3Click(Sender: TObject);
var
  ExprErrorMsg: array of string;
begin
  setlength(ExprErrorMsg, 3);
  ExprErrorMsg[0] := 'Expression Overflow.';
  ExprErrorMsg[1] := 'Invalid Expression.';
  ExprErrorMsg[2] := 'Unknown Error

.';
end;

jianth2005 · 发表于 2008-3-21 08:47:09

这样修改eeExprOver..eeExprUnknown就没有作用了?

jiahaiminghr · 发表于 2008-3-21 08:53:59

ExprErrorMsg[TExprErrorType.eeExprOver] := 'Expression Overflow.';

atiger · 发表于 2008-3-25 09:24:04

还有问题吗？没有就结了

jianth2005 · 发表于 2008-3-26 10:00:36

好的,结帐

		自动登录	找回密码
密码			立即注册