Понедельник, 24.07.2017, 11:46 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » if & ini
if & ini
cool1Дата: Суббота, 21.04.2012, 12:02 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Здравствуйте, я что-то намудрил с IF и INI файлами biggrin
Помогите пожалуйсто разобраться...
Вобщем вот моя строка:
Code

if Edit1.Text:= ini.ReadString('Main','Key','Key Not Found') then

(она с ошибкой)
Суть в том, что при нажатии на кнопку, мне надо проверить значение переменной key ini файла.
Т.е. если в ини файле переменная key = Edit1.text, то {код программы} или {close;}
Помогите пожалуйсто biggrin
За помощь +


Сообщение отредактировал cool1 - Суббота, 21.04.2012, 12:03
 
Волк-1024Дата: Суббота, 21.04.2012, 13:04 | Сообщение # 2
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: 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


ахаха точна как же мы с Волком раньше этого не заметили biggrin

но все равно мне кажется этого будет не достаточно и выскочит еще одна ошибка, хотя не факт, вобщем скажи как все прошло)))
 
Волк-1024Дата: Понедельник, 23.04.2012, 22:46 | Сообщение # 7
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
Хех. Не заметил двоеточие... biggrin

А по теме вот:

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!!!


И всё прекрасно работает. smile


Сообщение отредактировал Волк-1024 - Понедельник, 23.04.2012, 22:56
 
xXxSh@dowxXxДата: Понедельник, 23.04.2012, 23:07 | Сообщение # 8
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Да, я полностью согласен с Волк-1024 было бы лучше все перенести в отдельный параметр и уже потом сравнивать его с Edit

просто на работе делфи под рукой нет что бы проверить, вот и сижу с 3G теперь...

спасибо Волк'у-1024 схема вроде верная, код должен работать! biggrin


Сообщение отредактировал xXxSh@dowxXx - Понедельник, 23.04.2012, 23:09
 
cool1Дата: Вторник, 24.04.2012, 09:03 | Сообщение # 9
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Да блин с этим двоеточием тупанул. Спасибо
 
delfcode » Delphi » Вопросы по Delphi » if & ini
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz