Thank you Luca, that will work much better for me! James
-----Original Message----- From: fpc-pascal <[email protected]> On Behalf Of Luca Olivetti via fpc-pascal Sent: Sunday, December 20, 2020 10:11 AM To: [email protected] Cc: Luca Olivetti <[email protected]> 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 - [email protected] https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - [email protected] https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
