{"action":"closed","issue":{"url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/92","repository_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet","labels_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/92/labels{/name}","comments_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/92/comments","events_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/92/events","html_url":"https://github.com/pascalabcnet/pascalabcnet/issues/92","id":134594319,"number":92,"title":"Жуткая ошибка в PCU","user":{"login":"miks1965","id":10325391,"avatar_url":"https://avatars.githubusercontent.com/u/10325391?v=3","gravatar_id":"","url":"https://api.github.com/users/miks1965","html_url":"https://github.com/miks1965","followers_url":"https://api.github.com/users/miks1965/followers","following_url":"https://api.github.com/users/miks1965/following{/other_user}","gists_url":"https://api.github.com/users/miks1965/gists{/gist_id}","starred_url":"https://api.github.com/users/miks1965/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/miks1965/subscriptions","organizations_url":"https://api.github.com/users/miks1965/orgs","repos_url":"https://api.github.com/users/miks1965/repos","events_url":"https://api.github.com/users/miks1965/events{/privacy}","received_events_url":"https://api.github.com/users/miks1965/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2016-02-18T14:26:33Z","updated_at":"2016-02-18T20:27:51Z","closed_at":"2016-02-18T20:27:51Z","body":"Вот основная программа\r\n```\r\nuses MySeqs;\r\n\r\nbegin\r\n  var s: array of string  := Arr('5b', 'abc');\r\n  var r := SumLengths(s);\r\n  Println(r);\r\nend.\r\n```\r\n\r\nВот модуль\r\n```\r\nunit MySeqs;\r\n\r\n  function tttt(s: string): integer;\r\n  begin\r\n    Print(s);\r\n    Result := s.Length\r\n  end;\r\n  \r\n  function SumLengths(a: array of string): integer;\r\n  begin\r\n    result := a.Sum(tttt);\r\n  end;\r\n  \r\nend.  \r\n```\r\n\r\nПервый раз выполняется нормально, со второго раза - вылетает жуткое исключение о коррумпированности памяти"}}