Desconsiderem essa mensagem. Já descobri qual era o problema. Era um
propriedade que que criei com o mesmo nome da variável venda. Não sei porque o
Delphi atribuiu o valor à uma e na hora de eu buscar, pegou de outra.
Flw.
----- Original Message -----
From: Gabriel Ferrarini
To: Delphi-BR
Sent: Friday, March 18, 2005 9:44 AM
Subject: [delphi-br] Classes
Olá a todos.
Estou com um problema em minhas classes e gostaria de saber o que pode estar
acontecendo.
Seguinte:
Tenho a seguinte hierarquia.
TSuperClasse = class
function NovoID: integer; virtual;
end;
TVendaBasica = class(TSuperClasse);
TPreVenda = class(TVendaBasica);
Antes, minha classe TPreVenda era herdade diretamente de TSuperClasse e a
funlção NovoID retornava certinho o próximo número. Quando inseri TVendaBasica
entre elas, a função ainda é executada mas o result não chega até o ponto onde
quero que é mais ou menos assim:
with PreVenda do
begin
Venda := NovoID;
Query.ParamByName('VENDA').AsInteger := Venda;
.
.
.
.
Salvar;
end;
O valor que chega até à variável Venda é 0. Já tentei na classe TVendaBasica
colocar a função com override na declaração, herdando a anterior na
implementação mas também não deu certo.
Só para constar, meu códio do NovoID é:
QueryPesq.SQL.Clear;
QueryPesq.SQL.Add('select max(VENDA as NOVO_ID from PREVENDA');
QueryPesq.Open;
result := QueryPesq.FieldByName('NOVO_ID').AsInteger + 1;
Quando a função passa aqui, o valor do result É o correto.
O que pode ser?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
