Правила форума
Fail.PASЯзык:
Русский
English
{Fail.PAS}
{ Пример программы для процедуры Fail }
{$F+}
function HeapFunc(Size : Word) : Integer;
begin
HeapFunc := 1; { Возвращает Nil, если вне кучи }
end;
{$F-}
type
CharPtr = ^Char;
BigString = object { Хранит большие строки }
Len : Word;
Txt : CharPtr;
constructor Init(Size : Word; Contents : CharPtr);
procedure Show;
...
destructor Done;
end;
constructor BigString.Init(Size : Word; Contents : CharPtr);
begin
Len := Size;
GetMem(Txt, Size);
if Txt = Nil then
Fail; { Выходим с сообщением об ошибке }
Move(Contents^, Txt^, Size);
end;
destructor BigString.Done;
begin
FreeMem(Txt, Len);
end;
function HeapFunc(Size : Word) : Integer;
begin
HeapFunc := 1; { Возвращает Nil, если вне кучи }
end;
{$F-}
type
CharPtr = ^Char;
BigString = object { Хранит большие строки }
Len : Word;
Txt : CharPtr;
constructor Init(Size : Word; Contents : CharPtr);
procedure Show;
...
destructor Done;
end;
constructor BigString.Init(Size : Word; Contents : CharPtr);
begin
Len := Size;
GetMem(Txt, Size);
if Txt = Nil then
Fail; { Выходим с сообщением об ошибке }
Move(Contents^, Txt^, Size);
end;
destructor BigString.Done;
begin
FreeMem(Txt, Len);
end;
::
::
::
