VPF::Создание меню - Форум программистов

Volkogriz

Дата 12.7.2013, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Доброе время суток!
Подскажите пожалуйста что не так.

Код


procedure TForm1.PopupMenuActivate;
var
  newItem: TMenuItem;
  ini: TIniFile;
  n:integer;
begin
PopupMenu1.AutoHotkeys:=maManual;
newItem:=TMenuItem.Create(PopupMenu1);
  ini := TIniFile.Create(extractfilepath(Application.ExeName)+'FilesProgram\ParametersForm.prm');
  begin
       for n := 1 to ini.ReadInteger('[MenuParam]', 'Amount', 0) do
       begin
       newItem.Caption:=ini.ReadString('Menu' + Format('%.3d', [n]), 'MenuName', '');
       newItem.OnClick:=MyMenuClick;
       PopupMenu1.Items.Add(newItem)
  end;
 end;
end;

в ини файле пишу так:

Код


[MenuParam]
Amount=003
[Menu001]
MenuName=Menu1
[Menu002]
MenuName=Menu2
[Menu003]
MenuName=Menu3

Но меню не хочет создаваться(
Что я не то делаю?
Заранее благодарен!
С уважением,
Volkogriz!

Это сообщение отредактировал(а) Volkogriz - 12.7.2013, 19:06

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

northener

Дата 12.7.2013, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Volkogriz @ 12.7.2013, 19:01

)

Что я не то делаю?

Одного TMenuItem.Create на n пунктов меню явно маловато будет.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Volkogriz

Дата 12.7.2013, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

))Это то до меня давно дошло)
Просто не дагоню как из положения выйти

Код


 for n := 1 to newini.ReadInteger('[MenuParam]', 'Amount', 0) do
       begin
       newItem:=TMenuItem.Create(PopupMenu1);
       newItem.Caption:=newini.ReadString('Menu' + Format('%.3d', [n]), 'MenuName', '');
       newItem.OnClick:=MyMenuClick;
       PopupMenu1.Items.Add(newItem)

Может о чём то не о том мысли, но не выходит нечего(

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 12.7.2013, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

for n := 1 to newini.ReadInteger('[MenuParam]', 'Amount', 0) do

А вы попробуйте сделать переменную для конечного значения цикла и увидите что там ноль. Одна из первых ссылок в гугле http://delphi.about.com/od/objectpascalide/a/tinifile.htm говорит о том, что первый параметр должен быть БЕЗ скобок [] а их уже добавит/убавит сам класс в момент (де)сериализации.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Volkogriz

Дата 12.7.2013, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Я клянусь я их нечаянно поставил так где то часа три назад, просто подумал что отруки ошибка и скопировал, а скобки и не заметил вообще))))
Огромное спасибо!!!
Смотрел очень внимательно и изучал)))))

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »