Ich hab jetzt die Hilfe nicht zur Hand, darum stimmt die Syntax bestimmt nicht, aber so ähnlih sollte es gehen:
Delphi-Quellcode:
For i := 0 to sl.count -1 do begin
if reg.ReadDataType(sl[i])=binary then
memo1.Lines.add(sl[i]+reg.ReadBinary(sl[i]);
end;
Die überprüfung des Datentyps muß sein, wenn der nicht stimmt bekommst Du ein paar exceptions um die Ohren gehauen.
Gruß
K-H