Fórum Dúvida com a classe TClientDataSet #227531
22/04/2004
0
Preciso criar uma procedure que receba um componente ClientDataSet...
Por exemplo:
....
implementation
{$R *.dfm}
....
type
NovoClient=class(TClientDataSet);
....
procedure Exemplo(objeto: TClientDataSet);
begin
Edit1.Text:=IntToStr(NovoClient (objeto).Recno);
end;
......
Obs: O erro acontece em todas as linhas descritas...
Como poderia fazê-lo???
Desde já meus agradecimentos.
:twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted:
:arrow: g1b4
Por exemplo:
....
implementation
{$R *.dfm}
....
type
NovoClient=class(TClientDataSet);
....
procedure Exemplo(objeto: TClientDataSet);
begin
Edit1.Text:=IntToStr(NovoClient (objeto).Recno);
end;
......
Obs: O erro acontece em todas as linhas descritas...
Como poderia fazê-lo???
Desde já meus agradecimentos.
:twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted:
:arrow: g1b4
G1b4
Curtir tópico
+ 0
Responder
Posts
22/04/2004
Vinicius2k
Colega,
Não entendi bem o que vc pretende fazer, mas...
Para criar um TClientDataSet em Runtime vc precisa de referenciar na lista de uses as units [color=red:b9d9587c39]DB[/color:b9d9587c39] e [color=red:b9d9587c39]DBClient[/color:b9d9587c39].
T+
Não entendi bem o que vc pretende fazer, mas...
...
implementation
{$R *.dfm}
uses DB, DBClient;
type
NovoClient = class(TClientDataSet);
procedure Exemplo(objeto: TClientDataSet);
begin
Edit1.Text:=IntToStr(NovoClient(objeto).Recno);
end;
...
Para criar um TClientDataSet em Runtime vc precisa de referenciar na lista de uses as units [color=red:b9d9587c39]DB[/color:b9d9587c39] e [color=red:b9d9587c39]DBClient[/color:b9d9587c39].
T+
Responder
Gostei + 0
22/04/2004
G1b4
Cara, Valews mesmo
:D :D :D :D :D :D
>>g1b4
:D :D :D :D :D :D
>>g1b4
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)