unit ProgramSettings;

interface

uses  SysUtils,Forms,Windows,Classes,JvSimpleXml;

type
   TProgrammSettings = class;
      TSettingsForms = class;
         TSettingsMain = class;

   TProgrammSettings = class(TObject)
   protected
      XML:TJvSimpleXml;
      FRoot:TJvSimpleXmlElem;
   public
      Forms:TSettingsForms;// настройки главного окна
      procedure LoadSettings;// загружаем настройки
   end;

   TSettingsForms = class(TProgrammSettings)
   public
      Main:TSettingsMain;
   end;   

   TSettingsMain = class(TSettingsForms)
   public
      Top: Integer;
      Left: Integer;
      Width: Integer;
      Height: Integer;
      OnTop: Boolean;
      StatusBar: Boolean;
   end;

implementation

   procedure TProgrammSettings.LoadSettings;
   var CurItem: TJvSimpleXmlElem;
      function GetCurItem(const ItemName: string): TJvSimpleXmlElem;
      begin
         Result := CurItem.Items.ItemNamed[ItemName];
         if Result = nil then
         begin
            Result := CurItem.Items.Add(ItemName);
            Result.Parent := CurItem;
         end;
      end;
   begin
      XML:=TJvSimpleXml.Create(nil);
      FRoot:=TJvSimpleXmlElem.Create(nil);
      FRoot:=XML.Root;
      XML.LoadFromString('<?xml version="1.0" encoding="windows-1251"?><WERTEX Version="strVersion" Date="08.12.2005"><Settings><Forms><Main Top="100" Left="100" Width="730" Height="500" /></Forms></Settings></WERTEX>');
      CurItem:=FRoot;
      CurItem:=GetCurItem('Settings');
      CurItem:=GetCurItem('Forms');
      CurItem:=GetCurItem('Main');
      with CurItem do
      begin
         Forms.Main.Top:=CurItem.Properties.IntValue('Top',0);
         Forms.Main.Left:=Properties.IntValue('Left',100);
         Forms.Main.Width:=Properties.IntValue('Width',740);
         Forms.Main.Height:=Properties.IntValue('Height',540);
      end;
   end;
end.

var
   SF: TSettingsForms
.
.
.
begin
  SF:=TSettingsForms.Create;

var
Settings: TProgrammSettings;
....
// а потом загружаю туда настройки и использую примерно так:

Form1.top:=Settings.Forms.Main.Top;
// и т.д.

function IntPow(num:real; power:integer):real;
var
   i: integer;
   tmp: real;
begin
   tmp:=1;
   if power>0 then
   begin
      for i:=1 to power do
         tmp:=tmp*num;     
   end else if power<0 then
   begin
      for i:=1 to power do
         tmp:=tmp*num;   
      tmp:=1/tmp;
   end

   IntPow:=tmp;
end;

function AnyPow(num, power : real):real;
var
   i: integer;
   tmp: real;
begin
   tmp:=1;
   if num<>0 then
   begin
     tmp:=exp(power*ln(num));
   end
   else tmp:=0;
   AnyPow:=tmp;
end;

3281.1504817173685

3281.1504817173693

3281.1504817000000

3281,1504817173700