incrementations
Posted: 04.02.2017 15:31
Since the new version "Inc" seems to throw exceptions. im wondering how you do incrementations now. Thanks.
Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
Code: Select all
program testprogram;
var i : Integer;
begin
i := 5;
Inc(i,5);
AddToSystemJournal(i.ToString);
Inc(i);
AddToSystemJournal(i.ToString);
end.
no exception.00:43:11:057 [Local - RunUO admin]: Compiling
00:43:11:097 [Local - RunUO admin]: Compiled succesfully
00:43:11:098 [Local - RunUO admin]: 10
00:43:11:099 [Local - RunUO admin]: 11
00:43:11:100 [Local - RunUO admin]: Succesfully executed
00:43:11:102 [Local - RunUO admin]: Script 11.sc stopped successfuly