procedure TMain.Button2Click(Sender: TObject);
const ReMax = 5;
var
flag: Integer;
MsgId: array[0..30] of char;
FCS: array[0..2] of char;
ByteFCS: Integer;
RepeatCount: Integer;
errid: integer;
label l;//????
begin
RepeatCount := 0;
l:FCS := #0;//????这是一个用软件发送短信的例子,第一次见这个声明,请教下。
const ReMax = 5;
var
flag: Integer;
MsgId: array[0..30] of char;
FCS: array[0..2] of char;
ByteFCS: Integer;
RepeatCount: Integer;
errid: integer;
label l;//????
begin
RepeatCount := 0;
l:FCS := #0;//????这是一个用软件发送短信的例子,第一次见这个声明,请教下。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货