Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Вниз

консольное приложение   Найти похожие ветки 

← →
Sergey V. Shadrin   (2002-08-28 07:31) [0]

есть консольное приложение. как-то в нем можно использовать объекты (например TTable, для доступа к базе данных) в сервисах можно, а в консольных не получается :(

---

← →
MBo   (2002-08-28 07:40) [1]

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,dbtables;
var table1:ttable;
begin
table1:=ttable.create(nil);
table1.DatabaseName:="DBDEMOS";
table1.tablename:="animals.dbf";
table1.Active:=true;
Writeln(table1.Fields[0].AsString);
readln;
table1.free;
end.

---

← →
Sergey V. Shadrin   (2002-08-28 07:51) [2]

так а как прочитать из базы значение поля id_ca? и table.next работает?

---

← →
MBo   (2002-08-28 07:59) [3]

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,dbtables;
var table1:ttable;
begin
table1:=ttable.create(nil);
table1.DatabaseName:="DBDEMOS";
table1.tablename:="animals.dbf";
table1.Active:=true;
Writeln(table1.Fields[0].AsString);
table1.Next;
Write(table1.Fields[0].AsString);
Writeln(" size: ",table1.FieldByName("Size").AsString," cm");
readln;
table1.free;
end.

---

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

Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c