Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

write (#7); write (#7); end; -C if > end; 3.7. Просмотризображенийграфиков Примногократномсохраненииизображенийграфиковвпа мятиЭВМвозникаетпроблемаихпросмотра. Вэтомслучаемож нопредложитьследующуюпроцедуру. Изображенияпонекоторым признакамобъединяютсяв"книги" (файлысуникальнымиимена ми с расширением.PCL). "Книги" изображенийобразуютбиблио теку, дляпутешествияпокоторойсоздаетсяспециальнаядиа логоваяпрограмма. Объединениеизображений, хранящихсяввидефайловфор матаPCX, в"книгу" можновыполнитьспомощьюутилитыпакета ToolKit команднойстрокой: pcxLIB <имяфайла-”книги"> *.РСХ/с Рассмотримвозможныйвариантработыподсистемыпросмот раизображенийнапримерепрограммыSHOW-LB*. Вначаленеоб ходимоопределить: имеютсяливтекущейдиректориифайлыс расширением.PCL, аеслиимеются, тосколькоих, какиеуних именаикогдаонибылисозданы (пример3.9). Пример3.9 { Поискфайловсрасширением .PCL > procedure VB-Lib; var < массивименфайловсдатойихсоздания> mnf : array [1..50] of string [21]; NNF : byte; { счетчикчислафайловсрасширением. .PCL > Dirlnfo : SearchRec; procedure ReadNameFile; var DT : DateTime; sa, sm, sg : string C21; nf : string [12]; df : string [13]; begin with Dirlnfo do begin nf :- Name; UnpackTime (Time, DT); “ПрограммаSHOW_LB написанасовместносН.М.Линкевич. 48