Stealth Client Forum

FindType(StrToInt(DailyTypes.strings[Idx3]), Ground)
if GetFoundItems(Items) > 0 then

[XXX]: Compiler: [Error] (test.sc at 460:1):  "end" expected but "if" found ;
Error line is: "if GetFoundItems(Items) > 0 then "

точки с запятой нет

    repeat
      wait(1000)
      p:=p+1;


12:06:29:307 [Natka]: Compiler: [Error] ( at 85:7):  "until" expected but "p" found ;
Error line is: "       p:=p+1; "

то же самое

function GoToObject(Object: Cardinal): Boolean;

[XXX]: Compiler: [Error] (test.sc at 355:19):  Identifier expected but "Object" found ;
Error line is: " function GoToObject(Object: Cardinal): Boolean; "

Object - это ключевое слово языка, оно не может быть названием параметра или переменной!

var
  Items_arr : Array of Cardinal;

function GetFoundItems(var Items: Array of Cardinal): Integer;
...

  if GetFoundItems(Items_arr) > 0 then

опа, и ошибка выполнения(Exec Error) тут! При этом компилятор пропустит такую конструкцию.

должно быть:


type TItemArr = Array of Cardinal;
var
  Items_arr : TItemArr;


function GetFoundItems(var Items: TItemArr): Integer;
...

if GetFoundItems(Items_arr) > 0 then


это неочевидно, но это факт - динамические массивы нельзя передавать параметрами, надо определять его как тип. Var param при этом использовать необязательно, динамический массив - это и так указатель по сути своей.
В предыдущих версиях это тоже было актуально, кстати.

22:15:13:102 [Rdor Sems]: Compiler: [Error] ( at 338:14):  Identifier expected but ";" found ;
Error line is: "     Time := 0;; "
22:15:13:102 [Rdor Sems]: Compiling failed

всё написано в ошибке - две точки с запятой.

program test_sript;

procedure SkypeEventsHandler(SenderNickName, SenderId, EventMsg: String; EventCode : Byte);
begin                             
  case EventCode of
    evCode_Connected    : AddToJournal('Skype Connected!');
    evCode_ServerDisconnected : AddToJournal('Skype Disconnected, try to reconnect!');
    evCode_ClientDisconnected : AddToJournal('Skype Disconnected.');
    evCode_MsgReceived  :  AddToJournal('SkypeMsg : "' + SenderNickName + '('
                                       + SenderId + ') : "' + EventMsg + '"');
    evCode_Error :        AddToJournal('SkypeError : "' + SenderNickName + '('
                                       + SenderId + ') : "' + EventMsg + '"');
  end; 
end;

begin
SetEventProc(evSkypeEvent, 'SkypeEventsHandler');
 SkypeApi.Connect('your_login','your_pass');
 while not SkypeApi.Connected do
   wait(200);
 SkypeApi.SendMessage('test1','receiver_id');   
 wait(100);
 SkypeApi.SendMessage('test2', SkypeApi.GetIdByNickname('тот_ник_что_выставлен_на_контакт_в_скайпе'));   
 if SkypeApi.Connected then
   SkypeApi.Disconnect;
             
while (true) do
begin
  Wait(100);
end; 
end.