menu=
(
  item1=
  (
    caption=test
    command=1
  )
  item2=
  (
    caption=test2
    command=2
  )
  separator
)
a=
(
  1
  2
  3
  4
  5
  '
  other=""
)
cc=
(
  "line breaks
   in unnamed parameter
  ` and spaces"
  c="test string with
     line breaks
    `   and spaces at the beginning of line



    "
)

menu=
(
  item1=
  (
    caption=test
    command= 1 
  )
  item2=
  (
    caption=test2
    command= 2 
  )
  separator
)
a=
(
   1 
   2 
   3 
   4 
   5 
  '
  other=""
)
cc=
(
  "line breaks
   in unnamed parameter
  ` and spaces"
  c="test string with
     line breaks
    `   and spaces at the beginning of line



    "
)

Design=
(
  LastAlias="Проект 1"
  UserName=
  (
    "Проект 1"=""
    "Проект 2"=Developer
    testuser=developer
  )
)
LastObject=
(
  "Проект 1"="Тестовые процедуры\Cursor"
)
Runtime=
(
  LastAlias="Проект 1"
  UserName=
  (
    "Проект 1"=""
  )
)

type
  TParam=class
   private
    FIsList: Boolean;
    FName: String;
    FValue: String;
    FList: Array of TParam;
    FOwner: TParam;
    FInFile: Boolean;
    procedure DoneList;
    function GetValue: String;
    procedure SetValue(Value: String);
    procedure SetIsList(Value: Boolean);
    procedure SetName(Value: String);
    procedure DeleteParam(P: TParam; DoFree: Boolean=true);
    procedure AddParam(P: TParam);
   public
    constructor Create(AOwner: TParam);
    destructor Destroy; override;
    function ParamCount: Integer;
    function ParamByIndex(Index: Integer): TParam;
    function ParamIndex(Name: String): Integer;
    function ParamByName(Name: String): TParam;
    function GetAsInteger(Default: Integer): Integer;
    function GetAsBoolean(Default: Boolean): Boolean;
    function GetAsFloat(Default: Double): Double;
    function GetAsDate(Default: TDateTime): TDateTime;
    function GetAsTime(Default: TDateTime): TDateTime;
    function GetAsDateTime(Default: TDateTime): TDateTime;
    function GetAsBinary: String;
    procedure GetAsStrings(S: TStrings; Clear: Boolean);
    procedure SetAsInteger(Value: Integer);
    procedure SetAsBoolean(Value: Boolean);
    procedure SetAsFloat(Value: Double);
    procedure SetAsDate(Value: TDateTime);
    procedure SetAsTime(Value: TDateTime);
    procedure SetAsDateTime(Value: TDateTime);
    procedure SetAsBinary(Value: String);
    procedure SetAsStrings(S: TStrings; Clear: Boolean);
    property IsList: Boolean read FIsList write SetIsList;
    property Name: String read FName write SetName;
    property Value: String read GetValue write SetValue;
    property InFile: Boolean read FInFile;
  end;

  TConfig=class(TParam)
   public
    constructor Create;
    procedure LoadFromStream(F: TStream);
    procedure SaveToStream(F: TStream);
    procedure LoadFromFile(FileName: String);
    procedure SaveToFile(FileName: String);
  end;

  procedure GetParam(CurParam: TParam);
  var P: TParam; S1: String;
  begin
    SkipBlanks;
    P := TParam.Create(CurParam);
    try
      P.FInFile := true;
      if CurChar='(' then
        GetList(P, ')')
      else
        begin
          GetString;
          S1 := CurStr;
          SkipBlanks;
          if CurChar='=' then
            begin
              P.Name := S1;
              FetchChar;
              SkipBlanks;
              if CurChar='(' then
                GetList(P, ')')
              else
                begin
                  GetString;
                  P.Value := CurStr;
                end;
            end
          else P.Value := S1;
        end;
    except
      P.Free;
    end;
  end;
  procedure GetList(CurParam: TParam; EndChar: Char);
  begin
    if EndChar<># 0  then FetchChar;
    SkipBlanks;
    while not EOF_ and (CurChar<>EndChar) do
      begin
        GetParam(CurParam);
        SkipBlanks;
      end;
    if not EOF_ then FetchChar;
  end;