Home

Page 320
Page 320
background image

Железная мастерская

313

ExtStr;3tring;

begin

ExtStr:=Editl.Text;

if ExtStr[l]<>'.' then

 ExtStr, 1);

end;

Здесь я завел отдельную переменную, с помощью которой проверяю: если
первый символ не равен точке, то она вставляется в первую позицию.

На компакт-диске в директории \Примеры\Глава

 вы можете увидеть

пример этой программы.

6.9.2. Связывание своей программы

с пределенным типом файлов

Теперь создадим маленький пример, который будет отображать картинки

в BMP-формате. Самое вкусное в этой программе будет то, что мы зарегист-

рируем ВМР-формат за нашей программой. Когда вы захотите просмотреть
файл в этом формате, то будет запускаться наше приложение.

Итак, давайте создадим новый проект. На форме нам понадобится только

компонент

 (я растянул его по всей форме) и кнопка

Зарегистрировать. Помимо этого, я установил у главной формы свойство

 равным значению

На рис. 6.18 вы можете увидеть форму нашей будущей программы.

 картинок

Закрыть

 в

 6.18. Форма будущей программы


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.