|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.01.2012, 21:17 | #1 |
Форумчанин
Регистрация: 28.09.2010
Сообщений: 246
|
Как добавить название кнопки в ini-файл при условии
Здравствуйте. Есть 2 формы, PopupMenu и пару кнопок. При нажатии на кнопке правой кнопкой мыши ее название переносится на кнопку второй формы и сохраняется в ИНИ файле
Код такой procedure TForm1.N1Click(Sender: TObject); var n: integer; begin n:=1; while n <= 100 do if (Form2.sBitBtn1.Caption = '0') and (PopupMenu1.PopupComponent is TsBitBtn) then begin Form2.sBitBtn1.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption; break; end else if (Form2.sBitBtn2.Caption = '0') and (PopupMenu1.PopupComponent is TsBitBtn) then begin Form2.sBitBtn2.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption; break; end; Это работает Теперь пытаюсь добавить название кнопки в ИНИ-файл. Пробую так: procedure TForm1.N1Click(Sender: TObject); var n: integer; begin n:=1; while n <= 100 do if (FavoriteForm.sBitBtn1.Caption = '0') and (PopupMenu1.PopupComponent is TsBitBtn) then begin Form2.sBitBtn1.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption; Form2.sBitBtn1.Caption := ini.WriteString('Ua','fa','0'); break; end else if (Form2.sBitBtn2.Caption = '0') and (PopupMenu1.PopupComponent is TsBitBtn) then begin Form2.sBitBtn2.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption; Form2.sBitBtn1.Caption := ini.WriteString('Ua','fb','0'); break; end; Тут ошибка. [DCC Error] Proga1.pas(175): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter' Form2.sBitBtn1.Caption := ini.WriteString('Ua','fa','0'); с этой строкой что то не так Помогите пожалуйста! Как добавить название кнопки в INI?
Смотреть фильмы HD Фильмы для планшетов
|
12.01.2012, 23:30 | #2 |
Участник клуба
Регистрация: 06.04.2009
Сообщений: 1,524
|
Код:
|
13.01.2012, 06:51 | #3 |
Пользователь
Регистрация: 14.07.2011
Сообщений: 44
|
Неужели основы паскаля не знаете?? привильно psycho-coder сказал, такие подпрограммы как функции возвращают значения определённое в их типе, но не процедуры, уберите в строке Form2.sBitBtn1.Caption := ini.WriteString('Ua','fb','0'),
Form2.sBitBtn1.Caption и оставьте ini.WriteString('Ua','fb', Form2.sBitBtn1.Caption), так же судя по всему вы создать ини файл забыли, если ошибаюсь поправьте, вот весь код вашей программы, исправленный, должно работать: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как добавить кнопки showmessage? | Sepish100 | Мультимедиа в Delphi | 2 | 19.11.2011 20:13 |
Joomla 1.0 там при добавлении новости нет кнопки ок типо добавить ! Как там добавлять ??? | valerka92 | WordPress и другие CMS | 1 | 10.09.2011 19:27 |
Как закрасить ячейки в таблице при условии | primusx | HTML и CSS | 6 | 28.07.2011 18:59 |
загрузка данных из ini при условии | anchoussichek | Общие вопросы Delphi | 0 | 24.05.2011 15:00 |
Не дать сохранит файл при условии | Диас | Microsoft Office Excel | 6 | 12.05.2008 18:59 |