www.techvale.com.br
- Original Message -
From: Jônatas Renan
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 11, 2006 6:44 PM
Subject: Re: [delphi-br] Re: Não sei como resolver, se com apontadores
ou typecast ou sei la oque...
analisa do seguinte jeito
olá..
..use interface.. tipo assim..
IMeusValores = Interface
function GetValue: Variant;
procedure SetValue(Value: Variant);
property Value: Variant read GetValue write SetValue;
end;
TValue = class(TInterfacedObject, IMeusValores)
private
FValue: Variant;
function GetValue:
..ESQUECI O SEGUINTE..
var
valor: IMeusValores;
begin
valor := MinhaFuncao(1).Value;
{** ..OU..
valor := TForm( MinhaFuncao(1).Value );
**}
end;
..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
VC JÁ QUER DEMAIS, NÉ!!
..OPS, ERREI!!
O CERTO É..
var
valor: IMeusValores;
form1: TFORM;
begin
valor := MinhaFuncao(1);
showmessage( valor.Value );
{** ..OU..
form1 := TForm( MinhaFuncao(1));
showmessage( form1.Value );
**}
end;
--- Em delphi-br@yahoogrupos.com.br, Filipe Belchior
[EMAIL
então não é possível eu usar um retorno de função que possa ser string e ao
mesmo tempo um filho de Tobject
Em 11/08/06, Filipe Belchior [EMAIL PROTECTED] escreveu:
..OPS, ERREI!!
O CERTO É..
var
valor: IMeusValores;
form1: TFORM;
begin
valor := MinhaFuncao(1);
showmessage(
kra, rs.. q eu saiba nao! ..mas.. pensei agora, uma outra idéia,
seria usar overload de métodos.. mas ainda naum pensei direito
na idéia.
--- Em delphi-br@yahoogrupos.com.br, Jônatas Renan [EMAIL PROTECTED]
escreveu
então não é possível eu usar um retorno de função que possa ser
string e ao
Kl a finalidade disso tudo? É sempre bom falar a finalidade (pq vc quer
isso) pois assim, agente pode te dar uma luz sobre o caso... Quem sabe você
não está indo pelo caminho contrário?
O que existe mais próximo do que você disse é algo como:
procedure Asdf(param: String);overload;
procedure
analisa do seguinte jeito...
TContainer = Array of Record
Key: TObject;
Value: Tobject;
end;
eu tenho uma classe TDicionario que tem esses metodos e propriedades
constructor Create;
function Add(Key, Value: TObject) :
Boolean; // Adiciona
8 matches
Mail list logo