Porque este erro????
Oi pessoal! Eu criei uma aplicação todinha, esta funcionando bem e tal. quanto acrescentei as seguintes linhas nas tabelas, ocorreu um erro que esta descrito mais abaixo, se alguem conseguir identificar o problema por favor me de uma luz.
na uses do projeto eu acrescentei:
dbiprocs
isso foi o suficiente para causar os seguintes erros:
´(´expected but´)´ found
´)´ expected but ´END´ found
na seguinte linha de commando:
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
a linha acrescentada na uses do projeto é para a gravação direta no banco de dados aguela conhecida dbisavechanges ´(tb_mov_caixa.Handle);´
Eu particularmente como iniciante não consegui desvendar esta problema.
na uses do projeto eu acrescentei:
dbiprocs
isso foi o suficiente para causar os seguintes erros:
´(´expected but´)´ found
´)´ expected but ´END´ found
na seguinte linha de commando:
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
a linha acrescentada na uses do projeto é para a gravação direta no banco de dados aguela conhecida dbisavechanges ´(tb_mov_caixa.Handle);´
Eu particularmente como iniciante não consegui desvendar esta problema.
Machado
Curtidas 0
Respostas
Arc
17/09/2003
Não estou vendo nenhuma ligação possivel do erro com o DBIProcs ....
Se vc tirar o DBIProcs de uses o sistema funciona normal ?????
Se vc tirar o DBIProcs de uses o sistema funciona normal ?????
GOSTEI 0
Garoto Programa
17/09/2003
Prezado,
O Delphi esta lhe informando que era esperado ´(´ mas foi encontrado ´)´ na primeira linha, na segunda ele informa que era esperado ´(´ mas foi encontrado ´END´.
Na maioria dos casos isto ocorre porque você deve ter esquecido de especificar algum parametro. Não tem nenhuma ligação logica com você ter acrescentado uma Unit na Uses. Tente remover a unit que você acrescentou e de uma olhada também na linha do comando dbisavechanges, pode ser que o erro estejá nela.
Caso não consigua e não se importe de enviar sua Unit me passa ela em PVP que eu dou uma olhada.
Que Deus lhe abençoe!
O Delphi esta lhe informando que era esperado ´(´ mas foi encontrado ´)´ na primeira linha, na segunda ele informa que era esperado ´(´ mas foi encontrado ´END´.
Na maioria dos casos isto ocorre porque você deve ter esquecido de especificar algum parametro. Não tem nenhuma ligação logica com você ter acrescentado uma Unit na Uses. Tente remover a unit que você acrescentou e de uma olhada também na linha do comando dbisavechanges, pode ser que o erro estejá nela.
Caso não consigua e não se importe de enviar sua Unit me passa ela em PVP que eu dou uma olhada.
Que Deus lhe abençoe!
GOSTEI 0
Machado
17/09/2003
Pessoal é só eu tirar o dbiprocs do uses que funciona tudo.
a procedure a seguir é que da erro quando eu coloco o dbiprocs na uses.
procedure TForm_principal.Timer1Timer(Sender: TObject);
begin
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
end;
Se eu coloco da erro, se eu não coloco funciona perfeitamente.
QUE ISSO?
a procedure a seguir é que da erro quando eu coloco o dbiprocs na uses.
procedure TForm_principal.Timer1Timer(Sender: TObject);
begin
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
end;
Se eu coloco da erro, se eu não coloco funciona perfeitamente.
QUE ISSO?
GOSTEI 0
Marcelo Saviski
17/09/2003
Dentro dessa Unit dbiprocs não existe uma redeclaração de
[color=green:e905ecd27e]dateToStr [/color:e905ecd27e]ou [color=green:e905ecd27e]date [/color:e905ecd27e]ou [color=green:e905ecd27e]TimeToStr [/color:e905ecd27e]ou [color=green:e905ecd27e]time[/color:e905ecd27e]?
Porque o Delphi pode estar confundindo essas funções com as que supostamente estão nessa Unit .
[color=green:e905ecd27e]dateToStr [/color:e905ecd27e]ou [color=green:e905ecd27e]date [/color:e905ecd27e]ou [color=green:e905ecd27e]TimeToStr [/color:e905ecd27e]ou [color=green:e905ecd27e]time[/color:e905ecd27e]?
Porque o Delphi pode estar confundindo essas funções com as que supostamente estão nessa Unit .
GOSTEI 0
Arc
17/09/2003
Eu coloquei este codigo em um programa, e não é que deu erro mesmo
procedure TForm_principal.Timer1Timer(Sender: TObject);
begin
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
end;
se deixar somente
Label3.Caption := dateToStr(date)
ele funciona
:?:
procedure TForm_principal.Timer1Timer(Sender: TObject);
begin
Label3.Caption := dateToStr(date) + ´ ´ + TimeToStr(time);
end;
se deixar somente
Label3.Caption := dateToStr(date)
ele funciona
:?:
GOSTEI 0
Marcelo Saviski
17/09/2003
Mistério... hehe
e só: Label3.Caption := dateToStr(date) + TimeToStr(time);
sem o [color=green:5f37068e26]+ ´ ´[/color:5f37068e26] funciona?
estou sem o Delphi para poder testar
e só: Label3.Caption := dateToStr(date) + TimeToStr(time);
sem o [color=green:5f37068e26]+ ´ ´[/color:5f37068e26] funciona?
estou sem o Delphi para poder testar
GOSTEI 0
Lidiane
17/09/2003
O probema está em time existe uma ocorrencia de time na unit especificada ....vou verificar onde...
Lidiane
Lidiane
GOSTEI 0
Dedi
17/09/2003
Concordo plenamente com a Colega LIdiane e a soluçao é a seguinte
Dedi.
Label3.Caption := dateToStr(date) +´ ´+ TimeToStr(SysUtils.Time);
Dedi.
GOSTEI 0
Celsos
17/09/2003
Use
Label3.Caption:=DateTimeToStr(Now);
Label3.Caption:=DateTimeToStr(Now);
GOSTEI 0