Скачать: CL | DM;

Что нужно сделать - чтоб создать поле типа ftGraphic - с 0 длиной   Найти похожие ветки 

← →
Константин   (2002-08-06 16:49) [0]

Добрый день.

Не смогли бы Вы помочь в следующем
Создаю локальную базу данных на лету

При этом возникает проблема с полем типа ftGraphic. При его создании я указываю что его размер должен быть 0 - однако при создании размер его всеравно получаеться 1. Из -за этого не работает программа. Но если войти в dbв32 - и стереть размер этого поля то программа начинает работать.

Вопрос в следующем, что нужно сделать - чтобы создать поле типа ftGraphic - с отсутствующей длиной (чтобы программа обработки базы данных заработала). Наверняка это возможно как то раз dbв32 позволяет это сделать.

////////////////// Текст процедуры создания таблицы.

procedure TForm1.CreateFIOTable(NameFile: string);
begin
with Table1 do
begin
Active := False;
DatabaseName := "";
TableName := NameFile;
TableType := ttPARADOX;

with FieldDefs do
begin
Clear;
Add("Code", ftAutoInc, 0, False);
Add("LastName", ftString,50,False);
Add("FirstName", ftString,50,False);
Add("BirthDay", ftDate, 0, False);
Add("Foto",ftGraphic,0,False);
end;

with IndexDefs do
begin
Clear;
Add("", "Code", [ixPrimary, ixUnique]);
Add("indBirthDay", "BirthDay", [ixCaseInsensitive]);
Add("indFirstName", "FirstName", [ixCaseInsensitive]);
Add("indLastName", "LastName", [ixCaseInsensitive]);
end;
CreateTable;
Free;
end;
end;

---

← →
Lusha ©   (2002-08-06 17:02) [1]

Вызывать напрямую dbiCreateTable...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c