RE:Aplicacion de Consola en Delphi
Puedes usar un módulo de datos (File / New... / New / Data Module) para poder poner los componentes de acceso a datos en él y establecer sus propiedades en el Inspector de Objetos (que es más fácil y rápido que crear esos componentes y establecer sus propiedades por código).
Por supuesto, en tu programa tienes que crear la instancia del módulo de datos, pues en el caso de aplicaciones de consola no funciona la opción de autocrear los formularios:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};
begin
// Insert user code here
WriteLn('Abriendo la base de datos...');
DataModule1 := TDataModule1.Create(nil); // Crea la instancia del módulo de datos
with DataModule1 do begin
Table1.Active := True;
WriteLn(Format('%d: %s %s', [Table1EmpNo.AsInteger, Table1FirstName.AsString, Table1LastName.AsString]));
Table1.Active := False;
WriteLn('Presione ENTER para terminar');
ReadLn;
end;
end.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};
begin
// Insert user code here
DataModule1 := TDataModule1.Create(nil);
with DataModule1 do begin
Table1.Active := True;
WriteLn(Format('%d: %s %s': Table1EmpNo.AsInteger, Table1FirstName.AsString, Table1LastName.AsString));
Table1.Active := False;
ReadLn;
end;
end.
Espero que te sirva.
Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php