About "Zc stack handling rewritten"
Posted: Wed Feb 11, 2009 8:12 am
Code: Select all
{$ifndef minimal}CheckValidIndex(Index);{$endif}
Code: Select all
{$ifndef minimal}ZAssert((Index >= 0) and (Index < FCount), 'ZArrayList bad index');{$endif}
{$ifndef minimal}
procedure ZAssert(const Condition: Boolean; const aText: string);
begin
if Condition then
Exit;
WriteLog(aText);
ZHalt(aText);
end;
{$endif}