Помогите с INI

[Dimixis]

...
begin
IniFile := TIniFile.Create('c:\boot.INI'); //Открываем INI файл
IniFile.ReadInteger('boot loader','timeout', timeout);
label4.Caption:=IntToStr(timeout) + ' сек';
end;
end;
...

Почему значение Таймаута у меня получается равное нулю?

Пробовал так еще так:
...
begin
IniFile := TIniFile.Create('c:\boot.INI'); //Открываем INI файл
IniFile.ReadЫекштп('boot loader','timeout', timeout);
label4.Caption:=timeout + ' сек';
end;
end;
...

Но так, вообще ничего не пишет.

[Aleksandr]

Вот так попробуй
IniFile := TIniFile.Create('c:\boot.INI'); //Открываем INI файл
IniFile.ReadInteger('boot loader','timeout', 0);
label4.Caption:=IntToStr(timeout) + ' сек';
end;

[Dimixis]

Не, так тоже не пашет...
Может вы не правильно меня поняли, смысл в том, что эта часть программы должна считывать из boot.ini таймаут загрузки и выводить его в лейбл4

[Aleksandr]

У меня выводит число. У тебя что за переменные?

[Dimixis]

Вот прога целиком (наработки)
unit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox3: TGroupBox;
Edit1: TEdit;
Label5: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
SpinEdit1: TSpinEdit;
Label6: TLabel;
Procedure BOOTini;
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f: TextFile; //Вывод INI в виде текста
buf: string; //Строка текстового файла
TimeOut: integer;//Значение ТаймАут
implementation
{$R *.dfm}
Procedure Tform1.BOOTini;
var IniFile:TIniFile;
Begin
AssignFile(f, 'c:/boot.ini');//Открытие файла
try
Reset (f); // открыть для чтения
except
on EInOutError do
begin
ShowMessage('Ошибка доступа к файлу boot.ini' );
exit;
end;
end;
// чтение из файла
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
Memo1.Lines.Add(buf); // добавить строку в поле Memol
end;
CloseFile(f); // закрыть файл
begin

IniFile := TIniFile.Create('c:\boot.INI'); //Открываем INI файл
IniFile.ReadInteger('boot loader','timeout', 0);
label4.Caption:=IntToStr(timeout) + ' сек';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bootini;
button1.Enabled:=false;
end;
end.

[SERG1980]

Наверно всё дело в том что он скрытый

[mutabor]

procedure TForm1.Button1Click(Sender: TObject);
var
sec: integer;
IniFile: TIniFile;
begin
IniFile:=TIniFile.Create('c:\boot.i ni');
sec:=IniFile.ReadInteger('boot loader','timeout',0);
edit1.Text:=inttostr(sec);
end;

у меня работает

[Net]

Проверь, может у тебя в boot.ini ноль и записан..

[SERG1980]

Проверил код Mutabora всё работает timeout=30

[mutabor]

Почему значение Таймаута у меня получается равное нулю?

Потому что глобальная integer переменнная всегда изначально содержит ноль. А так как ты ей так ничего и не присвоил то естественно на лейбе появляется ноль.