Хотиранинг динамик сохаси ва курсаткичлар

Runtime Error 203 ...

Шунинг учун, хотиранинг динамик сохасини вакти-вакти билан бушатиб туриш керак. Бу ишларни Dispose ва FreeMem процедуралари бажаради.

1. Dispose процедураси - типланган курсаткичдаги адресда жойлашган хотирани бушатади.

Аникланиши: Dispose (var p: pointer);

2. FreeMem процедураси - типланмаган курсаткичда курсатилган адресдаги хотирани бушатади.

Аникланиши: FreeMem (var p: pointer; size: word);

Курсаткични вактинча ишламай туришини билдириш учун Nil хизматчи сузидан фойдаланиш мумкин.

Бу процедуралар билан бир каторда куйидаги функциялар билан ùам танишиб чикайлик:

1. MemAvail функцияси - хотиранинг динамик сохасидаги буш сохаларнинг умумий хажмини аниклайди.

Аникланиши: MemAvail : LongInt;

2. MaxAvail функцияси - хотиранинг динамик сохасидаги энг катта соха улчовини аниклайди.

Аникланиши: MaxAvail: LongInt;

Мисол сифатида GetMem ва FreeMem процедураларидан фойдаланилган куйидаги программани куриб чикайлик:

Var
P: Pointer;
Begin
GetMem(P,1024); {Хотирадан 1024 байт жой ажратилди,
...... Р шу сохани курсатмокда}
FreeMem(P,1024); {Р сохадаги 1024 байт жой бушатилди}
End.

New ва Dispose процедуралари эса куйидагича ишлатилади:

Var
PS:^String;
Begin
New(PS); {Хотирадан 256 байт жой ажратилди }
PS^:к’Динамик хотира’;
Writeln(PS^);
Dispose(PS); {РS сохасиги тегишли булган жой бушатилди}
End.

Фойдаланилган адабиётлар руйхати.

1. 
   Вирт Н. Алгоритму структуру даннух программу. - М.: Мир, 1985 г.
   
2. 
   Абрамов В., Трифонов Н., Трифонова Г. Введение в язук Паскал. - М.: Наука, 1988 г.
   
3. 
   Файсман А. Профессиональное программирование на Турбо Паскале. - Т.: "Инфомэкс Корпорейшн", 1992 г.
   
4. 
   Findlay W., Watt D.A., Paskal. An introduction to methodical programmin. Third edition. – London: Pitman, 1985 г.
   
5. 
   Поляков Д. Б., Круглов И. Ю. Программирование в среде Турбо-Паскаль (версия 5.5): Справ.-метод. пособие. – М.: Изд-во МАИ. 1992 г.
   
6. 
   Епанешников А., Епанешников В. Программирование в среде Turbo Pascal 7.0 М., Диалог-наука, 1993 г.