Criar um objeto que posso acesar ?

Delphi

07/04/2008

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 fazer assim
ser servidor off
Objeto :=dmCP.CdsCliL ;
se servidor on
Objeto :=dmC.CdsCli

VarLimiteCheque := ObjetoLimiteCheque.Value ;

para não ficar if if

alguem já fez isso sera que tem como ?
Obrigado a tds !!


Essistemas

Essistemas

Curtidas 0

Respostas

Rodc

Rodc

07/04/2008

CdsCliLLimiteCheque é um ClientDataSet?
Faça assim:
var cdsPonteiro: TClientDataSet;
begin
    if true then
        cdsPonteiro := dmCP.CdsCliL
    else
        cdsPonteiro := dmC.CdsCli;

    VarLimiteCheque := cdsPonteiro.Value; 
end;

Isto vale também para outros tipos de classes.


GOSTEI 0
Essistemas

Essistemas

07/04/2008

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 !


GOSTEI 0
Rodc

Rodc

07/04/2008

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;



GOSTEI 0
POSTAR