起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 142|回复: 2

【搞定】代码报错,请帮我看一下错误在哪里**

[复制链接]
发表于 2007-4-13 16:39:41 | 显示全部楼层 |阅读模式
unit ZCT2;

interface

uses
  Business.System, Business.Model, Business.Forms,GGHSK;

type
  TZCT2 = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerYWXX1: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewYWXX1_SJWG1: TDocView;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TZCT2.RadioButton1Click(Sender: TObject);

var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\GZCJ.Param';
   Value := '咀一车间' ;
   TGGHSK.SetParamValueString(Context,Value,lBiz);
end;

end.


报错:
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\YWGN2.FUNC.DIR\ZCT2.Form.pas(6, 50): line 6: unexpected char: ?
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\YWGN2.FUNC.DIR\ZCT2.Form.pas(6, 51): line 6: unexpected char: ?
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\YWGN2.FUNC.DIR\ZCT2.Form.pas(6, 52): line 6: expecting ';', found 'GGHSK'
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\YWGN2.FUNC.DIR\ZCT2.Form.pas(6, 57): line 6: expecting "implementation", found ','
[错误]Biz:\SCZYCX\FUNC\SJCSWJ\YWGN2.FUNC.DIR\ZCT2.Form.pas(6, 59): line 6: expecting "end", found 'Business'
回复

使用道具 举报

发表于 2007-4-13 17:09:29 | 显示全部楼层
, Business.FormsGGHSK;
中文字符了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-14 09:28:20 | 显示全部楼层
谢谢了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-19 01:23 , Processed in 0.046799 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表