Что нужно сделать - чтоб создать поле типа ftGraphic - с 0 длиной [D3, Paradox]
Константин © (2002-08-06 16:49:00)
Добрый день.
Не смогли бы Вы помочь в следующем
Создаю локальную базу данных на лету
При этом возникает проблема с полем типа 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:00) [1]
Вызывать напрямую dbiCreateTable...
Наверх 
ЧАТ |
Орешник |
|
