Está dando erro : invalid class typecast delphi

Delphi

01/09/2017

Esta ocorrendo erro qdo executo o seguinte comando:

cds := ds.DataSet as TClientDataSet;

Alguém pode me ajudar.
Agradeço desde já a atenção da galera.


procedure TfrmCadBase.FormCreate(Sender: TObject);
var
I: Integer;
cds: TClientDataSet;
begin
Try
if not DS.DataSet.Active then DS.DataSet.Open;

cds := ds.DataSet as TClientDataSet;

totreg.Caption := 'Total Cadastradas: ' + intTOstr( (ds.DataSet as TClientDataSet).RecordCount );
HabilitaControlesVisuais(False);
except
on e: Exception do
begin
ShowMessage('Erro 01 - Problema ao conectar base de dados'
+ #13 + 'Erro : ' + E.Message
+ #13 + 'Classe : ' + E.ClassName
+ #13 + 'Metodo: frmCadBase/Create');
end;
End;
Carlos Alves

Carlos Alves

Curtidas 0

Melhor post

Gutierry Pereira

Gutierry Pereira

01/09/2017

Tente efettuar o cast da seguinte forma cds := TClientDataSet(ds.DataSet);
GOSTEI 1

Mais Respostas

Carlos Alves

Carlos Alves

01/09/2017

Achei uma solução que funcionou:

if not DS.DataSet.Active then DS.DataSet.Open;

-------> retirei esta linha ---> cds := ds.DataSet as TClientDataSet;

-----> alterei esta linha --> totreg.Caption := 'Total Cadastradas: ' + TClientDataSet( (ds.DataSet).RecordCount.ToString );

Obrigado....
GOSTEI 0
Carlos Alves

Carlos Alves

01/09/2017

Gutierrydsn, Obrigado pela dica e atenção..... valeuuuuu
GOSTEI 0
POSTAR