|
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' |
|