TERMO INCORRETO?

Delphi

01/09/2009

Onde está incorreto este comando?

      If TClientDataSet(Ds.DataSet).State = dsEdit and
           vDescr_Ant <> DBEdDescricaoFabricante.Text then



Lenasi

Lenasi

Curtidas 0

Respostas

.lg.

.lg.

01/09/2009

Qual o erro que está dando!? mostre a mensagem por favor.
Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then



GOSTEI 0
.lg.

.lg.

01/09/2009

Qual o erro que está dando!? mostre a mensagem por favor.
Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then



GOSTEI 0
Lenasi

Lenasi

01/09/2009

Qual o erro que está dando!? mostre a mensagem por favor. Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´ 
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then


Eram os parênteses, amigo...
Resolveu!!!


GOSTEI 0
Osocram

Osocram

01/09/2009

amigo..
so um comentario
vc não precisa fazer este cast.
If ((Ds.DataSet.State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then


[quote:6c39e2488f=´.lg.´]Qual o erro que está dando!? mostre a mensagem por favor. Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´ 
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then


Eram os parênteses, amigo...
Resolveu!!![/quote:6c39e2488f]


GOSTEI 0
Lenasi

Lenasi

01/09/2009

amigo.. so um comentario vc não precisa fazer este cast. 
If ((Ds.DataSet.State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then
[quote:a6e03263b4=´lenasi´][quote:a6e03263b4=´.lg.´]Qual o erro que está dando!? mostre a mensagem por favor. Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´ 
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then


Eram os parênteses, amigo...
Resolveu!!![/quote:a6e03263b4][/quote:a6e03263b4]


AH, BLZ AMIGO....
QUANDO REALMENTE É NECESSÁRIO?


GOSTEI 0
Osocram

Osocram

01/09/2009

So vai ser necessario qdo não compilar
XD
ehhehe
Brincadeira a parte...
Seria assim, conceito de OOP ...
TDataSet tem os conjuntos (1,2,3)
TClientDataSet vem do TDataSet, então ele tem tudo q tem no TDataSet e mais a coisas somente dele tbm.
TClientDataSet tem os conjuntos (1,2,3......4,5,6) <- veja q o 1,2 e 3 veio da herança.

se vc for usar o ds.DataSet que é do tipo TDAtaSet vc so vai pode usar os 1,2 ou 3.
mas se vc quer usar os 4,5 ou 6 e o seu DataSet é um TClientDataSet, dae sim é necessario fazer o cast.

[quote:2b43595528=´osocram´]amigo.. so um comentario vc não precisa fazer este cast. 
If ((Ds.DataSet.State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then
[quote:2b43595528=´lenasi´][quote:2b43595528=´.lg.´]Qual o erro que está dando!? mostre a mensagem por favor. Alguns parênteses pode ajudar a evitar erros ou situações ´bobas´ 
If ((TClientDataSet(Ds.DataSet).State = dsEdit) and
    (vDescr_Ant <> DBEdDescricaoFabricante.Text)) then


Eram os parênteses, amigo...
Resolveu!!![/quote:2b43595528][/quote:2b43595528]


AH, BLZ AMIGO....
QUANDO REALMENTE É NECESSÁRIO?[/quote:2b43595528]


GOSTEI 0
POSTAR