Отакуизьм - это не лечится. Писал-писал Cheb программу, оглянулся - а там константы... С именами...
[font="Courier"]procedure TRegistrator.RegEnd;
begin
//Проверка, нет ли "хвоста" за последним полем
if CurrentObject.InstanceSize > prevOffset + RoundSOUp(prevOffset, prevSize)
then
Die (MI_ERROR_[color="red"]PROGRAMMER_NO_BAKA[/color],
['Class '+CurrentObject.ClassName + ' failed its registration.'#10#13
+ ' "' + prevName + '": offset=' + IntToStr(prevOffset)
+ ', size=' + IntToStr(prevSize)+', type=' + prevType + #10#13
+ ' Alignment=' + IntToStr(AlignGranularity) +#10#13
+ ' InstanceSize=' + IntToStr(CurrentObject.InstanceSize) +#10#13
+ ' Non-covered bytes at the end='
+ IntToStr(CurrentObject.InstanceSize - (prevOffset + RoundSOUp(prevOffset, prevSize)))
]);
VerboselogA('Class registration end: %0',[AnsiString(CurrentObject.ClassName)]);
end; [/font]
[b]Добавлено [mergetime]1150964672[/mergetime]:[/b]
Форум но бака! Я [b]Ч-е-б[/b] а не "ЧПростите, никода больше материться не буду!"