{"action":"created","issue":{"url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/1042","repository_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet","labels_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/1042/labels{/name}","comments_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/1042/comments","events_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/1042/events","html_url":"https://github.com/pascalabcnet/pascalabcnet/issues/1042","id":350924629,"node_id":"MDU6SXNzdWUzNTA5MjQ2Mjk=","number":1042,"title":"Типизированные файлы со string[255]","user":{"login":"miks1965","id":10325391,"node_id":"MDQ6VXNlcjEwMzI1Mzkx","avatar_url":"https://avatars3.githubusercontent.com/u/10325391?v=4","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,"assignees":[],"milestone":null,"comments":19,"created_at":"2018-08-15T18:55:52Z","updated_at":"2018-08-17T19:13:08Z","closed_at":"2018-08-17T17:46:53Z","author_association":"CONTRIBUTOR","body":"```\r\ntype\r\n  t1 = record\r\n    f2: string[255];\r\n  end;\r\n\r\nvar\r\n  f: file of t1;\r\n  b: t1;\r\n\r\nbegin\r\n  Rewrite(f,'MyFile.bin');\r\n  b.f2 := 128*'*';\r\n  f.Write(b);\r\n  f.Close\r\nend.\r\n```\r\nЗдесь в файл записывается 257 бит. Причина - дескриптор строки со 128 символов становится двухбайтовым.\r\n\r\nЕсли в этой программе 128 исправить на 127, то записывается 256 бит - дескриптор - однобайтовый.\r\n\r\nЧто приводит к ошибкам"},"comment":{"url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/comments/413962810","html_url":"https://github.com/pascalabcnet/pascalabcnet/issues/1042#issuecomment-413962810","issue_url":"https://api.github.com/repos/pascalabcnet/pascalabcnet/issues/1042","id":413962810,"node_id":"MDEyOklzc3VlQ29tbWVudDQxMzk2MjgxMA==","user":{"login":"AlexRnD61","id":28169041,"node_id":"MDQ6VXNlcjI4MTY5MDQx","avatar_url":"https://avatars3.githubusercontent.com/u/28169041?v=4","gravatar_id":"","url":"https://api.github.com/users/AlexRnD61","html_url":"https://github.com/AlexRnD61","followers_url":"https://api.github.com/users/AlexRnD61/followers","following_url":"https://api.github.com/users/AlexRnD61/following{/other_user}","gists_url":"https://api.github.com/users/AlexRnD61/gists{/gist_id}","starred_url":"https://api.github.com/users/AlexRnD61/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/AlexRnD61/subscriptions","organizations_url":"https://api.github.com/users/AlexRnD61/orgs","repos_url":"https://api.github.com/users/AlexRnD61/repos","events_url":"https://api.github.com/users/AlexRnD61/events{/privacy}","received_events_url":"https://api.github.com/users/AlexRnD61/received_events","type":"User","site_admin":false},"created_at":"2018-08-17T19:13:08Z","updated_at":"2018-08-17T19:13:08Z","author_association":"NONE","body":"Рано закрыли. Пишет прекрасно, а чтение не идет, слетает по семибитному дескриптору.\r\nЯ выкладывал тестовые программы на форуме, но он недоступен, приложу тут. Там одна программа создает файл, две другие читают. Обе с чтением слетают на второй записи.\r\n\r\n[err.zip](https://github.com/pascalabcnet/pascalabcnet/files/2298420/err.zip)\r\n"}}
{"actor":{"display_login":"AlexRnD61"}}