dynamisch Records ansprechen

[Hackerl]

Hallo,

erst einmal herzlichen Dank für die schnellen antworten!
Ich bin relativ neu in Delphi und arbeite mit der Version XE2.

Zum besseren Verständnis hier noch einmal ein ausführlicherer Code Ausschnitt:

Delphi-Quellcode:

type TADUser = record
  cn,name,sn,givenName,displayName,department,company: String;
  streetAddress,l,telephoneNumber,userPrincipalName: String;
  mail,createTimeStamp,objectSid,distinguishedName: String;
  objectGUID,lastLogon,pwdLastSet,badPasswordTime: String;
end;

...
var
  ADUser: TADUser;
...

function read_ADFields(OBJECTClass):ADUser;
var
  rs, conn, com: Variant;
  DOMAIN: String;
  count: Integer;

begin
  DOMAIN := '''LDAP://dc=xx,dc=xx-xxxxxxxxx,dc=de''';

  CoInitialize(nil);
  try
    conn := CreateOleObject('ADODB.Connection');
    com := CreateOleObject('ADODB.Command');
    conn.Provider := 'ADsDSOObject';
    conn.open;

    com.ActiveConnection := conn;
    Com.CommandText := 'select cn,givenname,displayname,sn from '+Domain+' where objectclass='+''''+OBJECTClass+''''+' and objectclass<>'+'''computer'' ORDER by cn';
    com.Properties['Page Size'] := 10;
    Com.Properties['Timeout'] := 600;
    Com.Properties['Cache Results'] := False;
    Com.Properties['Size Limit'] := 200;
    rs := COm.Execute;

    count := 0;
    While Not rs.EOF do
    begin

    if not VarIsNull(rs.Fields[0].Value) then
    begin      
        [COLOR="Red"]ADUser.[B](rs.fields[1].name)[/B] := rs.fields[1].Value;[/COLOR]
   inc(count,1);
    end;


    rs := NULL;
  finally
    CoUninitialize;
    com := NULL;
    conn.Close;
    conn := NULL;

  end;
end;

Meine Frage bezieht sich auf die rot geschriebene Zeile:
Ich definiere ein Record mit dem Namen TADUser und ddefinierten Feldern, die namentlich auch im AD
existieren. Nach meiner AD-Abfrage möchte ich innerhalb einer Schleife die Werte aus den AD-Feldern
in die zugehörigen Recordfelder schreiben. Wie bringe ich Delphi bei, dass die AD-Werte
z.B. aus displayName nach 'ADUser.displayName' geschrieben werden.

@Blup
Dein Code ist für einen Anfänger wie mich ein verdammt harter Toback!