Код:
const Char_Name = 'Name';
Var mojno: Boolean;
procedure Init;
begin
mojno := True;
tt;
end;
procedure Free;
begin
mojno := False;
end;
procedure tt;
begin
If mojno then begin
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
delay(400);
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
pck:=''
//tt;
end;
end;
end.
Ругается на
end. в чём проблема?
Как повторить цикл //tt; а то при вызове в самой процедуре tt ошибка..