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ß