Помогите найти ошибку

[N!ckeL]

Помогите найти ошибку, всё работает прекрасно, только вылетает сообщение об ошибки: Access violation at address...

var
  inif:tinifile;
  s:string;
begin
  inif:=TiniFile.Create(ExtractFilePath(paramstr(0))+'lang.ini');
  mainmenu1.Items.Find('File').Caption:=inif.ReadString(s, 'File', 'File');
  mainmenu1.Items.Find('Help').Caption:=inif.ReadString(s, 'Help', 'Help');
  inif.free;
end;

И еще оди вопрос:
Есть PopupMenu вот такая структура:
File
-New
-Exit
Как изменить Caption File на Файл я знаю а как изменить New на Новый?

P.S. это моё 100 сообщение.

[Stilet]

Так пробуй:

var   
  inif:tinifile;   
  s:string;m:TmenuItem;   
begin   
  inif:=TiniFile.Create(ExtractFilePath(paramstr(0))+'lang.ini');   
  m:=mainmenu1.Items.Find('File');
   if m<>nil then m.Caption:=inif.ReadString(s, 'File', 'File');   
  m:=mainmenu1.Items.Find('Help');
    if m<>nil then m.Caption:=inif.ReadString(s, 'Help', 'Help');   
  inif.free;   
end;

а как изменить New на Новый?

Получить нулевой Item mainMenu потом нулевой item полученного, и приствоить его caption'ну нужное значение

[N!ckeL]

Stilet, спасибо, помог, а по поводу 2-го вопроса кто нибудь знает?

Вопрос:
Есть PopupMenu вот такая структура:
File
-New
-Exit
Как изменить Caption File на Файл я знаю а как изменить New на Новый?

[Stilet]

Дык я ж ответил вроде - читай мой пост в конце

[N!ckeL]

Дык я ж ответил вроде - читай мой пост в конце

Сорри не заметил;

m:=mainmenu1.Items[0];
  if m<>nil then m.Items[0].Caption:='Новый';

Опять эта ошибка вылазит..

[Stilet]

Ну тогда так.

if (m<>nil)and(m.Items[0]<>nil) then m.Items[0].Caption:='Новый';

Хотя это уже говорит о неверной стратегии...

[N!ckeL]

  m:=mainmenu1.Items[0];
  if (m<>nil)and(m.Items[0]<>nil) then m.Items[0].Caption:='Новый';

не работает, опять вызывает ошибку.. У меня вообщем есть программа я хочу вписать в *.ini разные языки, поэтому требуется менять Caption у mainmenu1.

[Stilet]

На какой строке то ошибка?
Код можеш весь выложить?

[N!ckeL]

Вот структурва config.ini:
[other]
language=Русский

Вот структурва lang.ini:
[Русский]
File=Файл
New=Новый
Help=Помощь

Вот код:

private 
 cfg, lng:TIniFile;
 procedure SelectLNG(lang:string); //lang - сюда пишем название языка

....................................................

procedure TMainForm.FormShow(Sender: TObject);
begin 
 cfg:=TIniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
  if MainForm.cfg.ReadString('Other', 'Language', 'English')<>'English' then
   begin
    SelectLNG(MainForm.cfg.ReadString('Other', 'Language', 'English'));
   end;
 cfg.free;
end;

procedure TMainForm.SelectLNG(lang: string);
var
  m:TmenuItem;
begin
  lng:=TiniFile.Create(ExtractFilePath(paramstr(0))+'lang.ini');
  m:=mainmenu1.Items.Find('File');
   if m<>nil then m.Caption:=lng.ReadString(lang, 'File', 'File');
  m:=mainmenu1.Items.Find('Help');
    if m<>nil then m.Caption:=lng.ReadString(lang, 'Help', 'Help');
  m:=mainmenu1.Items[0];
  if (m<>nil)and(m.Items[0]<>nil) then   // Вот здесь ошибка
m.Items[0].Caption:=lng.ReadString(lang, 'New', 'New'); // и вот здесь ошибка
  lng.free;
end;

[Stilet]

Вот мой пример:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    q1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public      lng:TIniFile;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
const lang='Русский';
var
  m:TmenuItem;
begin
  lng:=TiniFile.Create(ExtractFilePath(paramstr(0))+'file1.txt');
  m:=mainmenu1.Items.Find('File');
   if m<>nil then m.Caption:=lng.ReadString(lang, 'File', 'File');
  m:=mainmenu1.Items.Find('Help');
    if m<>nil then m.Caption:=lng.ReadString(lang, 'Help', 'Help');
  m:=mainmenu1.Items[0];   
  if (m<>nil)and(m.Items[0]<>nil) then  
m.Items[0].Caption:=lng.ReadString(lang, 'New', 'New');
  lng.free;
end;

end.

Вот ИНИ файл:

[Русский]
File=Файл
New=Новый
Help=Помощь

Ошибок нет. Работает все стабильно.