Question

I have a record like this:

Tcustomer=record
  Name: string;
  IDNumber: Integer;
  IsMarried: boolean;
end;

And I have a TCustomers_Manager class that stores a list of all the customers. Is it possible to have a procedure like this:

Procedure ChangeCustomer(CustomerIndex: integer; field: string; value);

That sets the value for that specific field. For example:

ChangeCustomer(1, 'Name','John');

How can I implement this?

Update: To clarify, my question is basically in 2 parts:

1) How can I map the field name (in string) to the actual field in record?

2) Is it possible to pass a value that has different types? Or should I pass a single type and type cast it (like passing a string and then using strtoint())

Answer 1

I would use TClientDataSet.

1. Create TClientDataSet with fields ID, Name, etc.
2. Open Dataset, Fill with InsertRecord or Insert/Post
3. Find Record with Locate
4. Use FieldByName(‘FieldName’).Value to access to or change data

Or you can take any MemoryDataSet component and use it in same way.

Second way is to convert record to class, declare Fields as published and use SetPropValue.

If you want to pass any Value you can use Variant. But you have to check types before assign.