выбор языка программмы

[adr]

решил попробовать в программа сделать пользовательский выбор языка программы. Создал 2 текстовых файла с разширением *.lng. написал вот этот код

unit Unit2;

interface

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

type
  TMainFRM = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFRM: TMainFRM;
  IniFile: TIniFile;
  IniFile1: TIniFile;
  text: string;
implementation

uses Unit1;

{$R *.dfm}


procedure TMainFRM.Button1Click(Sender: TObject);
begin
SettingsFRM.Show;
end;

procedure TMainFRM.FormCreate(Sender: TObject);
begin
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.ini');
Edit1.Text:=IniFile.ReadString('Language info', 'Language', 'Error');
if Edit1.Text='English' then
IniFile1:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'en.lng')
else
IniFile1:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'rus.lng');
end;

procedure TMainFRM.FormShow(Sender: TObject);
begin
Button1.Caption:=IniFile1.ReadString('', 'settings', '');
MainFRM.Caption:=IniFile1.ReadString('', 'programm', '');
end;

end.

Проверка языка проходит, а дальше ноль, т.е. на рамке программы и на кнопке не появляются названия. Помогите и подскажите что не так.


Заранее спасибо

[Utkin]

Посмотрите:
ExtractFilePath(Application.ExeName )+'Settings.ini'
Верно ли здесь формируется путь? Может слешек надо?

[raxp]

...а должны появлятся?

ReadString('', '

[Altera]

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

Посмотрите:
ExtractFilePath(Application.ExeName )+'Settings.ini'
Верно ли здесь формируется путь? Может слешек надо?

Не, всё ОК
ExtractFilePath возвращает путь, оканчивающийся слешем.

[Marsel737]

Не знаю почему у вас не работает, но вот это точно не повредит:

IniFile.Free;

[evgn]

Может все же нужно указать секцию окуда брать значения? (как уже заметил raxp)

Button1.Caption:=IniFile1.ReadString('секция', 'settings', '');
MainFRM.Caption:=IniFile1.ReadString('секция', 'programm', '');

[Kotofff]

Да кто ж так с ini-шкой работает ?!?!!!
Автор ! Про INI-файлы 1024 раза уже было на форуме !!! Ищи ! И все поймешь.
Но для начала почитай предыдущие ответы, запомни их - пригодится.

P.S.
От себя скажу немного :
после каждого TIniFile.Create() всегда после каких-то операций не забывай IniFile.Free - и увидишь насколько меньше станет непоняток как в данном коде.

[adr]

Все, я нашел проблему. дело в том что код проверял наличие файла ru.lng а у меня он оказывается назывался rus.lng сейчас переименовал и все показывает