Создание таблицы в модуле
Объект TTable может быть создан с владельцем, а может и без оного. Поскольку
вы объявляете его локально в процедуре, то владелец в этом случае не требуется.
Если владелец не задан, то забота об освобождении объекта ложится на вас. В
противном случае объект освобождается владельцем всякий раз, когда освобождается
сам владелец. Имеет смысл? Чтобы создать таблицу без владельца, сделайте
следующее:
procedure CreateATableInAUnit;
var
myTable: TTable;
begin
myTable := TTable.Create(nil);
try
myTable.DatabaseName := 'MyDB';
myTable.TableName := 'MyTable.db';
mytable.IndexName := 'MyIndex';
myTable.Open;
{другой код}
finally
myTable.Free;
end;
end;
|
|