TRegIniFile

[Gapro]

Я изучаю Дельфи по "Библии Дельфи" и у меня такой код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
   Procedure LoadProgParam;
   Procedure SaveProgParam;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.SaveProgParam;
var
 FIniFile: TReginifile;
begin
end;

Procedure TForm1.LoadProgParam;
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 LoadProgParam;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 SaveProgParam;
end;

end.

Компилятор останавливает на строке FIniFile: TReginifile; и пишет ошибку
[Error] Unit1.pas(32): Undeclared identifier: 'TReginifile'

Немогу понять в чем проблема

[SuperVisor]

IniFiles в Uses напиши )))

[Gapro]

Не помогает(, та же ошибка

[SuperVisor]

Тфу,Reg-то я и не заметил... TRegIniFiles в модуле Registry сокрыт...

[Gapro]

Еще странно, запускаю прогу из примера, там та же самая строка и все нормально компилиться.

[Stilet]

...Вместо TRegIniFile напиши просто TIniFile.

[Gapro]

То же самое, опять неправильный идентификатор:

[Error] Unit1.pas(32): Undeclared identifier: 'Tinifile'

А, да добавил модуль registry и все TReginiFile заработало, спс всем.

[SuperVisor]

Сообщение от Gapro

То же самое, опять неправильный идентификатор:

[Error] Unit1.pas(32): Undeclared identifier: 'Tinifile'

А для TIniFile как раз-таки нужен IniFiles...

[FaTaL]

Вообще лучше использовать для реестра модуль Registry

var
reg : TRegistry;
И для INI модуль IniFiles
var
ini : TIniFile;

[Neeter]

Вообще лучше использовать для реестра модуль Registry

В некоторых случаях TRegIniFile незаменим. Самый лучший пример это загрузка из реестра параметров программы.
Если бы использовали TRegistry, то пришлось бы писать вот так:

if reg.ValueExists('SomeValue') then SomeObject.SomeProperty := reg.ReadString('SomeValue');

Тут проверяется существует ли ключ, если бы был TRegIniFile, то код бы был лучше:

SomeObject.SomeProperty := regini.ReadString('', 'SomeValue', 'SomeDefaultValue')