It can be implemented with RTTI or variants perhaps.
Anthony Walter-3 wrote:
>
> Like so:
>
> procedure Test;
> var
> SomeType: TClass;
> SomeObject: TObject;
> begin
> SomeType := TStringList;
> SomeObject := SomeType.Create;
> (SomeObject as TStrings).Add('Hello World');
> ShowMessage((SomeObject as TStrings)[0]);
> SomeObject.Free;
> end;
>
> On Mon, Aug 23, 2010 at 7:05 PM, Frank Church <vfcli...@gmail.com> wrote:
>
>>
>> I did this kind of thing some time ago, but have forgotten the details.
>>
>> Let us say you have something like TBaseType(Variable).Method, you want
>> to
>> let TBaseType be a variable so you can have some code like this.
>>
>> procedure (value:someType)
>> var
>> variableType: TClass; //not quite sure here
>> variableType := TypeOf(value);
>>
>> then further on you execute something like
>>
>> variableType(Variable).Method, rather than TBaseType(Variable).Method
>> because you can't hard code TBaseType because can't tell what it will be
>> at
>> runtime. I remember doing something like that with Delphi of old,
>> probably
>> Delphi 3 or Delphi 7
>>
>> Can someone help me with this, with some use cases as well?
>>
>> Thanks
>>
>> --
>> Frank Church
>>
>> =======================
>> http://devblog.brahmancreations.com
>>
>> _______________________________________________
>> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>>
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
--
View this message in context:
http://old.nabble.com/How-to-set-a-type-as-a-variable--tp29517255p29518818.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
