|
if & ini
|
|
| cool1 | Дата: Суббота, 21.04.2012, 12:02 | Сообщение # 1 |
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
| Здравствуйте, я что-то намудрил с IF и INI файлами 
Помогите пожалуйсто разобраться...
Вобщем вот моя строка:
Code
if Edit1.Text:= ini.ReadString('Main','Key','Key Not Found') then
(она с ошибкой)
Суть в том, что при нажатии на кнопку, мне надо проверить значение переменной key ini файла.
Т.е. если в ини файле переменная key = Edit1.text, то {код программы} или {close;}
Помогите пожалуйсто
За помощь +
Сообщение отредактировал cool1 - Суббота, 21.04.2012, 12:03 |
| |
| |
| Волк-1024 | Дата: Суббота, 21.04.2012, 13:04 | Сообщение # 2 |
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
| У меня была похожая проблема. Правда на API, но может пригодиться http://delfcode.ru/forum/30-613-1
|
| |
| |
| xXxSh@dowxXx | Дата: Воскресенье, 22.04.2012, 08:28 | Сообщение # 3 |
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
| Quote (cool1) Помогите пожалуйсто разобраться...
если я не ошибаюсь, то таким макаром нельзя ставить исключения, у меня случалось частенько такое, правда не с ini файлами,в данном случае вроде как было бы удобней вывести параметр ini в отдельную переменную и уже в исключении ее применить как равенство к строке Edit, вроде должно быть так, а вобще было бы конечно более понятней взглянув на саму ошибку...
Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 22.04.2012, 08:30 |
| |
| |
| cool1 | Дата: Понедельник, 23.04.2012, 08:11 | Сообщение # 4 |
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
| Code [Error] Unit1.pas(37): Type of expression must be BOOLEAN
Вот такая ошибка
|
| |
| |
| artemuk | Дата: Понедельник, 23.04.2012, 13:48 | Сообщение # 5 |
Был не раз
Зарегистрирован: 31.05.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline
| убери двоеточие после Edit1.Text
|
| |
| |
| xXxSh@dowxXx | Дата: Понедельник, 23.04.2012, 18:29 | Сообщение # 6 |
|
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
| Quote (artemuk) убери двоеточие после Edit1.Text
ахаха точна как же мы с Волком раньше этого не заметили
но все равно мне кажется этого будет не достаточно и выскочит еще одна ошибка, хотя не факт, вобщем скажи как все прошло)))
|
| |
| |
| Волк-1024 | Дата: Понедельник, 23.04.2012, 22:46 | Сообщение # 7 |
|
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
| Хех. Не заметил двоеточие...
А по теме вот:
Code procedure TForm1.Button1Click(Sender: TObject);
var
Ini: Tinifile;
Param: string;
begin
Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'1.ini');
//Ini.WriteString('Section_Name', 'KEY1', 'OK!!!');
Param:=Ini.ReadString('Section_Name', 'KEY1', '');
Ini.Free;
if Edit1.text=Param then
MessageBox(0, (PChar(Param)), nil, 0);
end;
И 1.ini с таким содержанием:
Code
[Section_Name]
KEY1=OK!!!
И всё прекрасно работает. 
Сообщение отредактировал Волк-1024 - Понедельник, 23.04.2012, 22:56 |
| |
| |
| xXxSh@dowxXx | Дата: Понедельник, 23.04.2012, 23:07 | Сообщение # 8 |
|
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
| Да, я полностью согласен с Волк-1024 было бы лучше все перенести в отдельный параметр и уже потом сравнивать его с Edit
просто на работе делфи под рукой нет что бы проверить, вот и сижу с 3G теперь...
спасибо Волк'у-1024 схема вроде верная, код должен работать!
Сообщение отредактировал xXxSh@dowxXx - Понедельник, 23.04.2012, 23:09 |
| |
| |
| cool1 | Дата: Вторник, 24.04.2012, 09:03 | Сообщение # 9 |
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
| Да блин с этим двоеточием тупанул. Спасибо
|
| |
| |
