Урок 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; |
....
(C) Шуравин Александр
Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Turbo Delphi", авторское право на который принадлежит "Borland Software Corporation