![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Создана БД, в ней таблицы. В одной из таблиц есть поле типа МЕМО
Мне нужно изменить программно св-во "Формат текста" на RTF. Каким образом это можно сделать? вот кусок кода Код:
procedure CreateTablesADO(DatabaseName: string);
var
Catalog: _Catalog;
Table: _Table;
Column: _Column;
FKKey: _Key;
Type1: integer;
begin
Catalog:=CoCatalog.Create;
try
Catalog.Set_ActiveConnection('Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+DatabaseName+
';Persist Security Info=False');
Table:= CoTable.Create;
//Классы
try
Table.Name:='Class';
Table.ParentCatalog:=Catalog;
Column:=CoColumn.Create;
try
with Column do
begin
ParentCatalog:=Catalog;
Name:='ClassKey';
Type_:=adInteger;
Properties['Autoincrement'].Value:=True;
end;
Table.Columns.Append(Column, 0, 0);
finally
Column:= nil;
end;
Column:=CoColumn.Create;
try
with Column do
begin
ParentCatalog:=Catalog;
Name:='Comment';
Type_:=203;{Создание поля с типом МЕМО}
{Посмотрел имена Properties, похожего на TEXT FORMAT не нашел}
end;Может, кто знает другие способы? Заранее благодарен. |
|
#2
|
||||
|
||||
|
Нет такого типа поля RTF, да и ненужно т.к. RTF-по сути текст. А вот для отображение данного текста в формате RTF надо пользоваться компонентом предназначенным для этого DBRichEdit или его аналогами из сторонних компонент.
|
|
#3
|
|||
|
|||
|
вот скрин...
Возможно я не совсем корректно сформулировал вопрос... |
|
#4
|
|||
|
|||
|
Цитата:
|