>   function TFileNameProperty.GetAttributes: TPropertyAttributes;

>   begin

>     Result := [paDialog]

>   end{GetAttributes};

>   procedure TFileNameProperty.Edit;

>   begin

>     with TOpenDialog.Create(Application) do

>     try

>       Title := GetName; { name of property as OpenDialog caption }

>       Filename := GetValue;

>       Filter := 'All Files (*.*)|*.*';

>       HelpContext := 0;

>       Options := Options +

>                 [ofShowHelp, ofPathMustExist, ofFileMustExist];

>       if Execute then SetValue(Filename);

>     finally

>       Free

>     end

>   end{Edit};

>   procedure Register;

>   begin

>     { component }

>     RegisterComponents('DrBob42', [TUUCode]);

>     { property editor }

>     RegisterPropertyEditor(TypeInfo(TFilename), nil,

>                           'InputFile', TFilenameProperty);

>   end{Register};

> end.

Если вы желаете использовать компонент TUUCode в составе, какого либо пакета, то вы должны поместить компонент UUCode в пакет времени выполнения (runtime package), и модуль UUReg в пакет разработки (design-time), который требует пакет времени выполнения. В действительности, для использования пакетов вы можете использовать UUCode Wizard из следующей главы в пакет времени разработки и сделать его доступным в IDE Delphi для всех пользователей!

рис. 1.1. 16-битная версия примера UUCode

рис. 1.2. 32-битная версия примера UUCode

Во время исполнения программы могут возникнуть два исключения. Если входной файл пуст и во время кодирования, если выходной файл пуст. Для 16 битной версии может возникнуть третье исключение, если входной или выходной файл больше 65000 байт (16-битная версия данного компонента может обрабатывать входные и выходные файлы до 64 килобайт). На практике это означает, не может быть более 48 килобайт. 32-битная версия не имеет такого ограничения).