Criar um objeto que posso acesar ?

Question

por exemplo se o servidor estiver on-line vou pegar o valor    VarLimiteCheque  := dmC.CdsCliLLimiteCheque.Value ;se estiver off    VarLimiteCheque  := dmCP.CdsCliLLimiteCheque.Value ;Gostaria de faze...

Rodc · Answer

CdsCliLLimiteCheque � um ClientDataSet?Fa�a assim:[code:1:ae6a91e887]var cdsPonteiro: TClientDataSet;begin    if true then        cdsPonteiro := dmCP.CdsCliL    else        cdsPonteiro := dmC.CdsCli;    VarLimiteCheque := cdsPonteiro.Value; end;[/code:1:ae6a91e887]Isto vale tamb�m para outros tipos de classes....

Essistemas · Answer

Value me ajudou bastante, s� que ainda tenho um problema

quando � local � um Tibdataset, quando � servidor ClientDataset
tem como na hora de declar a variavel fazer isso ?
if Servidor Then
cdsPonteiro : TClientDataSet;
if Local = Then
cdsPonteiro : TIbDataSet;

Obrigado !

Rodc · Answer

Voc� precisa ver em que classe a propriedade Value est� declarada. Eu n�o tenho o Delphi aqui, mas entra no help da classe e veja a que classe pertence esta propriedade.
Considerando que � declarada em TDataSet, por exemplo, fica assim:

var cdsPonteiro: TDataSet; 
begin 
    if true then 
        cdsPonteiro := dmCP.CdsCliL 
    else 
        cdsPonteiro := dmC.CdsCli; 

    VarLimiteCheque := cdsPonteiro.Value; 
end;

F�rum Criar um objeto que posso acesar ? #356698