acredurti qye vc so possa atribuir um valor para alguma variavel de uma classe,
apos cria-la.
Carlos
Leslyn Fernandes <[EMAIL PROTECTED]> escreveu:
Olá,
Estou construindo uma classe e me surgiu uma idéia... Existe uma propriedade
padrão nesta classe... Vamos dizer que seja 'Valor'. Esta propriedade possui
métodos Get e Set implementados. Basicamente,
interface
...
private
FValor : Integer;
function GetValor: Integer;
procedure SetValor(const Value: Integer);
...
public
property Valor : Integer read GetValor write SetValor;
...
implementation
...
function TMyClass.GetValor: Integer;
begin
Result := FValor;
end;
...
procedure TISNumber.SetValor(const Value: Integer);
begin
FValor := Value;
end;
...
end.
Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare
uma variável "X : TMyClass", e tente fazer "X.Valor := 1", por exemplo, eu
consiga uma forma de implementar o create da classe automaticamente... Eu
tentei fazer o seguinte:
...
procedure TISNumber.SetValor(const Value: Integer);
begin
if not assigned(Self) then
Self := TMyClass.Create;
FValor := Value;
end;
...
Mas não funcionou...
Eu na verdade nem sei se dá para fazer isso que eu estou tentando... Mas se
alguém tiver alguma idéia, ou explicação, gostaria de ouvir...
Obrigado a todos!
Leslyn Fernandes
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
