[fpc-pascal] specify variable name with string variable

Stefan V. Pantazi svpantazi at gmail.com
Mon Jul 8 16:53:50 CEST 2019


You can use the TFPGMap class in fgl unit to implement the dictionary. 
fgl should be available in 3.0.4. Try to replace the 
Generics.Collections with fgl and the type definition in the example 
code from zh loza. The rest should be identical.

[...]

uses fgl;

type

TVariableDictionary = specialize TFPGMap<String, PWord>;

[...]


On 7/8/19 8:09 AM, James Richters wrote:
> I'm on windows....
> 
> Generics.Collections seems to be something that was added after 3.0.4,  I've downloaded the current FPC source code, but I’m not sure how to build it.. can someone point me in the right direction on how to compile the current source code?
> 
> James
> -----Original Message-----
> From: fpc-pascal <fpc-pascal-bounces at lists.freepascal.org> On Behalf Of James Richters
> Sent: Monday, July 8, 2019 6:48 AM
> To: 'FPC-Pascal users discussions' <fpc-pascal at lists.freepascal.org>
> Subject: Re: [fpc-pascal] specify variable name with string variable
> 
> Thank you for the answer and the example... I didn't know there was such a thing as a variable dictionary, but It looks like that may work for me, I'll give it a try!
> 
> James
> -----Original Message-----
> From: fpc-pascal <fpc-pascal-bounces at lists.freepascal.org> On Behalf Of zh loza
> Sent: Sunday, July 7, 2019 4:34 PM
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Subject: Re: [fpc-pascal] specify variable name with string variable
> 
> Hi all! It's my first answer to the mailing list, hopefully I won't screw anything up.
> 
> On Sun, Jul 7, 2019 at 10:58 PM James Richters <james at productionautomation.net> wrote:
>>
>> This might sound silly,  but is it possible to somehow specify a variable with a string containing the name of the variable?
> 
> You might want to try using generic dictionaries. E.g. like this:
> 
> program Project1;
> uses
>    SysUtils, Generics.Collections;
> 
> type
>    TVariableDictionary = specialize TDictionary<String, PWord>;
> 
> var
>    MyDictionary: TVariableDictionary;
>    MyVariable1: Word;
> 
> begin
>    MyDictionary := TVariableDictionary.Create;
>    MyDictionary.Add('MyVariable1', @MyVariable1);
>    MyDictionary['MyVariable1']^ := 100;
>    WriteLn(MyVariable1);
>    WriteLn(MyDictionary['MyVariable1']^);
>    FreeAndNil(MyDictionary);
> end.
> 
> If you need to address variables of different type, try Variants ( https://wiki.freepascal.org/Variant ).
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> 

-- 
_______________________________________________________


More information about the fpc-pascal mailing list