TIBDatabaseInfo -> ValueListEditor

[theomega]

Hallo Leute
wir gerne einige Infos über seine Interbase/Firebird-Datenbank in einem ValueListEditor anzeigen will. Der könnte diesen Code hier gebrauchen:
dimain ist ein TIBDatabaseInfo-Objekt

Delphi-Quellcode:

valuelisteditor1.InsertRow('Allocation',inttostr(dimain.Allocation),true);
valuelisteditor1.InsertRow('Base-Level',inttostr(dimain.BaseLevel),true);
valuelisteditor1.InsertRow('DB File Name',dimain.DBFileName,true);
valuelisteditor1.InsertRow('DB SiteName Name',dimain.DBSiteName,true);
valuelisteditor1.InsertRow('DB ImplementationNo',inttostr(dimain.DBImplementationNo),true);
valuelisteditor1.InsertRow('DB ImplementationClass',inttostr(dimain.DBImplementationClass),true);
valuelisteditor1.InsertRow('No Reserve',inttostr(dimain.NoReserve),true);
valuelisteditor1.InsertRow('ODS Minor Version',inttostr(dimain.ODSMinorVersion),true);
valuelisteditor1.InsertRow('ODS Major Version',inttostr(dimain.ODSMajorVersion),true);
valuelisteditor1.InsertRow('Page Size',inttostr(dimain.PageSize),true);
valuelisteditor1.InsertRow('Version',dimain.Version,true);
valuelisteditor1.InsertRow('Current Memory',inttostr(dimain.CurrentMemory),true);
valuelisteditor1.InsertRow('Forced Writes',inttostr(dimain.ForcedWrites),true);
valuelisteditor1.InsertRow('Max Memory',inttostr(dimain.MaxMemory),true);
valuelisteditor1.InsertRow('Num Buffers',inttostr(dimain.NumBuffers),true);
valuelisteditor1.InsertRow('Sweep Interval',inttostr(dimain.SweepInterval),true);
for i:= 0 to dimain.UserNames.count-1 do valuelisteditor1.InsertRow('Usernames',dimain.UserNames[i],true);
valuelisteditor1.InsertRow('Fetches',inttostr(dimain.Fetches),true);
valuelisteditor1.InsertRow('Marks',inttostr(dimain.Marks),true);
valuelisteditor1.InsertRow('Reads',inttostr(dimain.Reads),true);
valuelisteditor1.InsertRow('Writes',inttostr(dimain.Writes),true);
valuelisteditor1.InsertRow('DB SQL Dialect',inttostr(dimain.DBSQLDialect),true);

Grüße
TO