Sempre faço assim:
Type
TClasse = Class
public
constructor Create; Override;
end;
TClasse.Constructor Create; Override;
begin
Inherited Create;
// seto as variáveis.
end;
Tente assim.
[]'s
Filipe Geyer
----- Original Message -----
From: Thiago Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 30, 2006 7:49 AM
Subject: [delphi-br] Programação OO duvida..
Galera,
Estou com uma dificuldade, em um ponto em meus estudos. No Create dessa
Classe está dando um erro... O Erro é quando o objeto Fcodigo recebe algum
valor, dá que o arquivo está vazio. Então cheguei a conclusão de que a
criação desses objetos está errada....
Está assim essa parte... Se ouderem me ajudar agradeço...
constructor TCliente.Create;
begin
(...)
//Em cada um faço isso : Criar Objeto e Configura o mesmo
Fcodigo := TIntegerField.Create(Fcodigo);
Fcodigo.DisplayLabel := 'Código';
Fcodigo.FieldName := 'CODIGO';
**** Aqui está a Classe ****
type
TCliente = class(TTabela_OOP)
private
Fcodigo: TIntegerField;
Fnome: TStringField;
Fcidade: TStringField;
Fendereco: TStringField;
Festado: TStringField;
Fbairro: TStringField;
Fcep: TStringField;
public
constructor Create;
destructor Destroy; override;
property codigo : TIntegerField read Fcodigo write Fcodigo;
property nome : TStringField read Fnome write Fnome;
property endereco : TStringField read Fendereco write Fendereco;
property bairro : TStringField read Fbairro write Fbairro;
property cidade : TStringField read Fcidade write Fcidade;
property estado : TStringField read Festado write Festado;
property cep : TStringField read Fcep write Fcep;
procedure Localizar_Clientes;
procedure Recebe_Valores;
procedure Envia_Valores;
procedure Inicializa_Valores;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
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]
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
