Урок 3. Создание класса описания типа.

Что бы смотреть урок полностью, подпишитесь на платный раздел.

В платном разделе статья находиться здесь.

Исходники к уроку можно скачать в платном разделе.

Мы уже создали класс полей. Теперь займемся типами. Так как наша система будет поддерживать тип ссылок на другую таблицу базы данных, то нам придется создать классы для описания типов. Вот этим мы сейчас и займемся. Создадим класс описания типа...

...

.... И сделаем тестовые примеры ....

procedure TfrmMDETest.btnLoadClick(Sender: TObject);

var Stream:TFileStream;

DT:TMDEDataType;

begin

Stream:=TFileStream.Create('d:\1\1.mde',fmOpenRead);

DT:=TMDEDataType.Create;

DT.Unserialize(Stream);

Stream.Free;

lbTypeName.Caption:=DT.TypeName;

lbSize.Caption:=IntToStr(DT.Size);

lbPrecision.Caption:=IntToStr(DT.Precision);

lbTableName.Caption:=DT.TableName;

end;

procedure TfrmMDETest.btnSaveClick(Sender: TObject);

var Stream:TFileStream;

DT:TMDEDataType;

begin

DT:=TMDEDataType.Create;

DT.TypeName:='Пробный тип';

DT.DataType:=ftString;

DT.Size:=3;

DT.Precision:=2;

DT.TableName:='Товары';

Stream:=TFileStream.Create('d:\1\1.mde',fmCreate);

DT.Serialize(Stream);

Stream.Free;

end;

....

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Turbo Delphi", авторское право на который принадлежит "Borland Software Corporation

Последнее обновление ( 06.11.2011 г. )

« След.

Вернуться