dynamisch Records ansprechen

[Hackerl]

Hallo,

ich habe in meinem Programm zum Auslesen von AD-Infos eine Frage zum 'dynamischen' ansprechen von Records.

Zuerst habe ich ein Record-Type definiert:

Code:

   type TADUser = record
     cn,name,sn,givenName,displayName: String;
   end;

Bei der Abfrage des AD kann ich folgende Infos ermitteln:

Code:

var
   ADUser: TADUser;
   displayName: String;

Begin
 ...
   CONNECTIONString := 'select cn,givenname,displayname,sn,objectsid from '+Domain+' where objectclass='+'''user'''+' and objectclass<>'+'''computer'' ORDER by cn';
 ...
   Typ := rs.fields[2].type;
   Name := rs.fields[2].name;
   displayName:= rs.fields[2].Value;

Statt der Variable 'displayName' möchte ich in die Records 'ADUser.*' in einerhalb einer Schleife schreiben.
In etwa so:

Code:

   if not VarIsNull(rs.Fields[0].Value) then
      Name := rs.fields[2].name; // name des AD-Feldes
      ADUser.(rs.fields[2].name) := rs.fields[2].Value;  //Wert des AD-Feldes
...

Ist so etwas möglich?

Gruß