Четверг, 14 Ноя 2024, 06:33
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51642


Онлайн всего: 65
Гостей: 65
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Pascal

Демонстрация DefineProperties
...да, да, опубликуй это, пожалуйста, снова!
Хорошо, создайте на основе опубликованного ниже кода модуль PropDemo.pas и
добавьте новый компонент в палитру компонентов. Расположите его на форме и
сохраните ее. Затем посмотрите файл DFM каким-либо шестнадцатиричным редактором
и проверьте наличие определенных свойств по их именнованным тэгам. Вы можете
также попробовать закрыть форму и модуль, а затем открыть его с помощью пункта
меню File | Open file..., изменив тип файла в выпадающем списке на *.DFM.

Удачи!

Mike Scott
Mobius Ltd.

unit PropDemo;

{ Демонстрация DefineProperties.

Mike Scott, CIS 100140,2420. }

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls,
Forms, Dialogs;

type
TDemoProps = class(TComponent)
private
{ Private declarations }
FStringThing : string ;
FThing : record
i, j, k : integer ;
x, y : real ;
ch : char ;
end ;
procedure ReadStringThing( Reader : TReader ) ;
procedure WriteStringThing( Writer : TWriter ) ;
procedure ReadThing( Stream : TStream ) ;
procedure WriteThing( Stream : TStream ) ;
protected
{ Protected declarations }
procedure DefineProperties(Filer: TFiler); override
;
public
{ Public declarations }
constructor Create( AOwner : TComponent ) ; override
;
published
{ Published declarations }
end;

procedure Register;

implementation

constructor TDemoProps.Create( AOwner : TComponent )
;

begin
inherited Create( AOwner ) ;

{ создайте любые данные, чтобы было что
передать в поток}
FStringThing := 'Всем привет!' ;
with FThing do begin
i := 1 ;
j := 2 ;
k := 3 ;
x := PI ;
y := 180 / PI ;
ch := '?' ;
end ;
end ;

procedure TDemoProps.ReadStringThing( Reader : TReader )
;

begin
FStringThing := Reader.ReadString ;
end ;

procedure TDemoProps.WriteStringThing( Writer : TWriter )
;

begin
Writer.WriteString( FStringThing ) ;
end ;

procedure TDemoProps.ReadThing( Stream : TStream )
;

begin
Stream.ReadBuffer( FThing, sizeof( FThing ) ) ;
end ;

procedure TDemoProps.WriteThing( Stream : TStream )
;

begin
Stream.WriteBuffer( FThing, sizeof( FThing ) ) ;
end ;

procedure TDemoProps.DefineProperties(Filer:
TFiler);

begin
inherited DefineProperties( Filer ) ;
Filer.DefineProperty( 'StringThing',
ReadStringThing, WriteStringThing,
FStringThing <> '' ) ;
Filer.DefineBinaryProperty( 'Thing',
ReadThing, WriteThing, true ) ;
end ;

procedure Register;
begin
RegisterComponents('Samples',
[TDemoProps]);
end;

end.
Категория: Pascal | Добавил: Lerka (22 Ноя 2012)
Просмотров: 402 | Рейтинг: 1.0/ 6 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Четверг
14 Ноя 2024
06:33


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz