Serg

Раскраску для //? настроить...

интересно, при таком подходе появятся (или как скоро появятся) исключения из правила для блоков внутри циклов? while Some do begin var managed := ...; ... end;

Кстати, такой вопрос: $0101010101010101*value не даст ли избавиться от t64? if (count div 8) > 0 then PUInt64(@x)[0]:=$0101010101010101*value; ...

можем увидеть пару-тройку сырых строк от бэкап/рестора? $ cat file.log | head -n3 | hexdump -C

что-то запамятовал, есть способ в Calc выделить все ячейки с только значениями на листе, кроме формул?

А в Delphi для ShortString нет гарантии s[Length(s)+1]=#0 ?

была б TAnsiRec в interface -- нет вопросов. Однако ж она объявлена в strings.inc, а тот подключается в strings.pp в implementation => суть обеспечить тождественный рантайму т...

Почему i беззнаковое?

и еще момент: procedure FillChar(var x; const count: NativeInt; value: Byte); inline; ... else FillChar(x, SizeOf(x), value); получился же рекурсивный вызов вместо вызов...

Кто такой PCChar, который expected?

исходные Encoding и Codepage оттуда правильно были прочитаны/установлены?

а старого варианта не осталось? старый вариант + эталонный пример (дающий разницу с LongWord и Cardinal) были бы достаточны для удовлетворения любопытства...

а данные есть где и как? перед данными есть 1 байт?

А зачем Debian-овы имена пакетов не в Debian или его наследнике?

задача избавиться от этой конвертации?

а в исходник никакого невидимого треша не набилось? Проверить бы в hex режиме...

Хм, кого б туда в CC: добавить?

в ShortString, не?

а у них есть противоречие? какое?

{$IF 1=2} 1 -- кто? константа?