Sections

Syntax:

property Sections: TAdapterDMS_Settings_Sections;

Klasse:
TAdapterDMS_Settings

Beschreibung:
Mit der Eigenschaft kann auf die Liste aller DMS Abteilungen 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.Sections.Count - 1 do
    begin
      aItem := DMS_Settings.Sections.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