Ttable и Console

← →
edicon © (2003-05-17 00:37) [0]

Привет всем! Вопрос по Console Application!
Надо сделать небольшую служебную прогу по работе с БД. Решил сделать console т.к. интерфейс не нужен, а делает быстрее. Компилятор код воспринимает, но вот на стадии выполнения возникает ошибка при обращении к св-вам объекта TTable. Такое чувство что где-то забыл какое-нибудь Create().

program ModifidBD;

{$APPTYPE CONSOLE}

uses
SysUtils,
Forms,
DB,
DBTables;

type TDBForm= class(TForm)
Abonent:TTable;
end;
var
DBF:TDBForm;
begin
Try
With DBF.Abonent Do // здесь на стадии выполнения возникает ошибка…
Begin
DatabaseName:="c:\"; // путь упростил до нельзя
TableName:="abonent.dbf";
Open;
End;
Except
Halt;
End;
end.

Большое СПАСИБО всем!

← →
Johnmen © (2003-05-17 00:43) [1]

Ну да, ведь DBF не создан !

← →
edicon © (2003-05-17 01:04) [2]

Johnmen
поясни что значит: <Ну да, ведь DBF не создан !

← →
sniknik © (2003-05-17 01:08) [3]

> Такое чувство что где-то забыл какое-нибудь Create().
> DBF:TDBForm;

вот этот, прежде чем к нему обращатся.

← →
edicon © (2003-05-18 00:52) [4]

А как его правильно создать???

← →
Johnmen © (2003-05-18 01:05) [5]

>edicon © (18.05.03 00:52)
>А как его правильно создать???

Метод Create класса...
Но только, по-моему, не нужны тебе такие объекты в консольном приложении...:)
Просто почитай что-нибудь о создании и функционировании КП...:)

>Но только, по-моему, не нужны тебе такие объекты в консольном >приложении...:)
>Просто почитай что-нибудь о создании и функционировании КП...:)

А где почитать можешь подсказать?

Спасибо!

program ModifidBD;

{$APPTYPE CONSOLE}

uses
SysUtils,
DB,
DBTables;

begin
with TTable.Create(nil) do
try
DatabaseName:="c:\";
TableName:="abonent.dbf";
Open;
finally
Free;
End;
end.

Ttable и Console Найти похожие ветки