PropertyDef

Modified on 21/04/2009 11:51 by CPABAF Categorized as DMS, Plattform
{BR}
'''Syntax:'''{BR}
{{{{'''property''' PropertyDef: TAdapterDMS_Settings_PropertyDef;}}}}{BR}
'''Klasse:'''{BR}
[TAdapterDMS_Settings|TAdapterDMS_Settings] {BR}
{BR}
'''Beschreibung:'''{BR}
Mit der Eigenschaft kann auf die Liste aller DMS Eigenschaftsdefinitionen zugegriffen werden. Die Liste ist von der Klasse [TAdapterDMS_Settings_Item|TAdapterDMS_Settings_Item] abgeleitet. Nur die Klasse TAdapterDMS_Settings_Item beinhaltet alle Funktionen und Eigenschaften für den Zugriff auf die einzelnen Einträge.

{BR}
'''Beispiel:'''{BR}
{BR}
<code pascal>
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.PropertyDef.Count - 1 do
    begin
      aItem := DMS_Settings.PropertyDef.Item[i];
      if aItem <> nil then
      begin
         aText := '';
         if aItem.GetVariableNames(aVars) then
         begin
            for b := 0 to aVars.Count - 1 do
            begin
              aName := aVars.Strings[b]; 
              aVar  := aItem.Variable[aName];
              aText := aText + aName + ': ' + VarToStr(aVar) + #13#10;  
            end;
         end;
         
         Message_dlg(aText);
      end;
    end;
  finally
    aVars.Free;
  end; 
end;
</code>
{BR}
'''siehe auch:'''{BR}
[TAdapterDMS_SettingsMethoden|Methoden], [TAdapterDMS_SettingsEigenschaften|Eigenschaften]{BR}
CP Wiki

Navigation¶

PropertyDef
