Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание таблиц [D7, XP]

Sapos © (2007-02-20 12:05:00)
подскажите, пожалуйста, как мне быть?
Есть обычный Edit, по нажатию кнопки создается таблица с TableName:=Edit2.Text, но при попытке создать еще одну таблицу с другим именем, но теми же полями программа ругается, пишет: "A compomemt named TestField1 already exists". TestField1 - это имя поля, как наверное понятно из названия. Неужели я не могу создавать несколько таблиц с разными именами, но с одинаковыми полями? Однако при повторном запуске программы она дает добавить еще одну таблицу, при попытке добавить вторую ситуация повторяется.
Вот код процедуры:

with Table4 do
begin
DatabaseName:='Combo';
TableName:=Edit2.Text;
TableType:=ttParadox;
with FieldDefs do
Begin
add('TestField1',ftString,200,true);
add('TestField2',ftString,200,true);
add('TestField3',ftString,200,true);
add('TestField4',ftString,200,true);
end;
CreateTable;
end;
Подскажите как быть, можт че неправильно написал?

Sapos (2007-02-20 12:58:00) [1]
Спасибо!!!!! Заработало!!!!

Elen (2007-02-20 12:19:00) [2]

> Sapos © (20.02.07 12:05)

Кстати перед add нужно делать Clear;

Elen (2007-02-20 12:16:00) [3]

> Неужели я не могу создавать несколько таблиц с разными
> именами, но с одинаковыми полями?

Чтоб такие сомнения отпали сделай один раз шаблон базы, а потом просто копируй его с таким то именем. Ну а здесь перед всем этим закрываеш таблицу уже созданную?

Ega23 (2007-02-20 12:16:00) [4]
if Active then Close

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »