Como eu achei sobre a função Check()? Ora, muito simples! Como eu mencionei
onde na mensagem anterior, eu achei no help do Delphi! No help, ele diz a qual
unit pertence a função. Só fiz chamar o help, selecionei a guia(e não aba ou
orelha!) Índice(ou Index) e digitei Check. Pronto! Lá estava uma entrada com o
texto 'Check procedure'.
Quanto ao DBInit(), acrescento o seguinte: quando mencionamos a unit BDE na
cláusula uses de uma unit, quer seja na seção implementation ou interface, esta
não é exatamente uma unit, e sim uma referência mapeada(um alias - que não tem
nada haver com os aliases do BDE!) no seu projeto Delphi (Menu Project|Options,
guia Directories/Conditionals, caixa Aliases).
Estes aliases, quando detectados na seção uses de uma unit, na verdade farão
referência a uma ou mais units. Se vc, por exemplo, consultar os aliases de
units em sua aplicação, poderá se deparar com algo do tipo:
DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade fará
referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs.
Resumindo, agora vc já sabe onde encontrar a função DBInit(). Mais bem
explicado do que isso, meu amigo, pode esquecer a área e tentar corte e
costura! ;-)
Sds.,
Rubem Rocha
Manaus, AM
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:15:24
-0300Subject: RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador não
declarado, será que não falta mais algum; outra coisa como você encontrou que
Check() é o do DBTables ?abraçosStainleRubem Nascimento da Rocha <[EMAIL
PROTECTED]> escreveu:DbInit() é da unit BDE sim, mas a função Check() é da unit
DBTables. Chequei no próprio help do Delphi.Sds.To: [EMAIL PROTECTED]: [EMAIL
PROTECTED]: Wed, 24 Oct 2007 17:07:35 -0300Subject: RE: [delphi-br] BDEeu
imaginei que fosse, coloquei e não funcionou, veja o codigo :unit
Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,StdCtrls, BDE;typeTForm1 = class(TForm)Button1:
TButton;procedure Button1Click(Sender: TObject);private{ Private declarations
}public{ Public declarations }end;varForm1: TForm1;implementation{$R
*.DFM}procedure TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));// Adiciona
Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil, PChar(AName),
PChar(ADriver), PChar('Path:', + APath), True));Check(DBIExit);end;end.quando
chega no Check ele diz : undeclared identifiergratoStainleRubem Nascimento da
Rocha <[EMAIL PROTECTED]> escreveu:A unit é a BDE.Sds.To: [EMAIL PROTECTED]:
[EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01 +0000Subject:[delphi-br]
BDEUtilizando Delphi 5, gostaria se saber se já existe o BDE instalado
nocomputador e depois instalar o "álias", estou tentando fazer esta operação
:// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de compilação,
qual seria a UNIT que tenho que declarar emUSES ??gratoStainle
__________________________________________________________Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao
Messenger!http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__________________________________________________________Receba GRÁTIS as
mensagens do Messenger no seu celular quando você estiver offline. Conheça o
MSN Mobile!http://mobile.live.com/signup/signup2.aspx?lc=pt-br[As partes desta
mensagem que não continham texto foram removidas]Abra sua conta no Yahoo! Mail,
o único sem limite de espaço para armazenamento! [As partes desta mensagem que
não continham texto foram removidas]
_________________________________________________________________
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
[As partes desta mensagem que não continham texto foram removidas]
