Syntax:
property Pool: TAdapterDMS_Settings_Pool;
Klasse:
TAdapterDMS_Settings
Beschreibung:
Mit der Eigenschaft kann auf die Liste aller DMS Pools zugegriffen werden. Die Liste ist von der Klasse
TAdapterDMS_Settings_Item abgeleitet. Nur die Klasse TAdapterDMS_Settings_Item beinhaltet alle Funktionen und Eigenschaften für den Zugriff auf die einzelnen Einträge.
Beispiel:
procedure Test;
var
i : integer;
b : integer;
aItem : TAdapterDMS_Settings_Item;
aVars : TStringlist;
aVar : Variant;
aText : String;
aName : String;
begin
aVars := TStringlist.create;
try
for i := 0 to DMS_Settings.Pool.Count - 1 do
begin
aItem := DMS_Settings.Pool.Itemi;
if aItem <> nil then
begin
aText := '';
if aItem.GetVariableNames(aVars) then
begin
for b := 0 to aVars.Count - 1 do
begin
aName := aVars.Stringsb;
aVar := aItem.VariableaName;
aText := aText + aName + ': ' + VarToStr(aVar) + #13#10;
end;
end;
Message_dlg(aText);
end;
end;
finally
aVars.Free;
end;
end;
siehe auch:
Methoden,
Eigenschaften