Thank you Luca, that will work much better for me! James
-----Original Message----- From: fpc-pascal <fpc-pascal-boun...@lists.freepascal.org> On Behalf Of Luca Olivetti via fpc-pascal Sent: Sunday, December 20, 2020 10:11 AM To: fpc-pascal@lists.freepascal.org Cc: Luca Olivetti <l...@ventoso.org> Subject: Re: [fpc-pascal] Selecting Records with a variable El 20/12/20 a les 16:02, James Richters via fpc-pascal ha escrit: > What I’m hopping to accomplish isn't to get it to work... it's to > consolidate a whole bunch of functions and procedures that are all exactly > the same except for which axis I am working with... > > I have 9 possible Axis, X,Y,Z,W,L.R,A,B,C .... > ... > Same thing 7 more times > ... > > > This is a tedious situation. If I want to change something I have to copy > and paste it 9 times then go fix all the variables 9 times.. and it's easy to > make a mistake. Then change your data model. Instead of Axis_record = record X,Y,Z,A,B,C : Double; End; use AxisName = (X,Y,Z,A,B,C); Axis_record = array[AxisName] of double; then it's easy to do what you want. procedure DoSomething(var Axis:Axis_record; const which:AxisName); begin Axis[which]:=Axis[which]/2; end; Bye -- Luca _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
