Тема: Спор об оформлении кода
InitConsole, но зато HeapInit и при этом CreateThread — это что вообще? Я объяснял уже логику названий(хотя и есть сомнительные моменты), но сейчас логики стало ещё меньше, чем было до.
ну и вот здесь, скажем,
если раньше код был просто не доработан, то теперь он стал не верным.
И раньше, и сейчас было "не совсем правильно".
Но разве чем-то, то что стало сейчас, лучше?
ах да кодстайл
открываешь допустим classes и там
if Sorted then Error(@SSortedListError, 0);
if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);или sysutils
case DateOrder of
doMDY: begin Y := N3; YearLen := L3; M := N1; D := N2; end;
doDMY: begin Y := N3; YearLen := L3; M := N2; D := N1; end;
doYMD: begin Y := N1; YearLen := L1; M := N2; D := N3; end;
end;а ещё можешь открыть getmem.inc
if (bd.addr <= b.addr) and (bd.addr + bd.size >= b.addr + b.size) then begin
if bd.addr = b.addr then begin
Inc(bd.addr, b.size);
Dec(bd.size, b.size);
if bd.size = 0 then
DeleteBlock(bd);
end else if bd.addr + bd.size = b.addr + b.size then
Dec(bd.size, b.size)
else begin
n.addr := b.addr + b.size;
n.size := bd.addr + bd.size - n.addr;
bd.size := b.addr - bd.addr;
if not AddBlockAfter(bd, n) then begin
result := False;
exit;
end;
end;
result := True;
exit;
end;и я абсолютно согласен! Нужно писать так, чтобы читать было понятно конкретно ЭТОТ код здесь и сейчас.
А вовсе не для того, чтобы соответствовать чьим-то там надуманным "правилам"
Обсуждение в тему https://www.sql.ru/forum/470248-0/forma … dnogo-koda
Ну вот, поэтому пул реквесты приняты и не будут, а следовательно и делать их смысла нет.
Код выкладываю на форум, если он полезен — используйте, делайте коммиты, если нет — не делайте.
Я не для эмбаркадеры код пишу, чтобы подстраиваться под их правила!
