IPB

> Fail.PAS
Чат
Форум
Загрузка...
 

Язык:
Русский
English


 { Пример программы для процедуры 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;
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"