delfcode

if & ini

cool1

Дата: Суббота, 21.04.2012, 12:02 | Сообщение # 1

Был не раз

Группа: Проверенные

Сообщений: 181

Статус: 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

Продвинутый

Группа: Проверенные

Сообщений: 149

Статус: Offline

У меня была похожая проблема. Правда на API, но может пригодиться https://delfcode.ru/forum/30-613-1

xXxSh@dowxXx

Дата: Воскресенье, 22.04.2012, 08:28 | Сообщение # 3

Продвинутый

Группа: Пользователи

Сообщений: 116

Статус: Offline

Quote (cool1)

Помогите пожалуйсто разобраться...

если я не ошибаюсь, то таким макаром нельзя ставить исключения, у меня случалось частенько такое, правда не с ini файлами,в данном случае вроде как было бы удобней вывести параметр ini в отдельную переменную и уже в исключении ее применить как равенство к строке Edit, вроде должно быть так, а вобще было бы конечно более понятней взглянув на саму ошибку...

Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 22.04.2012, 08:30

cool1

Дата: Понедельник, 23.04.2012, 08:11 | Сообщение # 4

Был не раз

Группа: Проверенные

Сообщений: 181

Статус: Offline

Code

[Error] Unit1.pas(37): Type of expression must be BOOLEAN

Вот такая ошибка

artemuk

Дата: Понедельник, 23.04.2012, 13:48 | Сообщение # 5

Новичок

Группа: Пользователи

Сообщений: 8

Статус: Offline

убери двоеточие после Edit1.Text

xXxSh@dowxXx

Дата: Понедельник, 23.04.2012, 18:29 | Сообщение # 6

Продвинутый

Группа: Пользователи

Сообщений: 116

Статус: Offline

Quote (artemuk)

убери двоеточие после Edit1.Text

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

но все равно мне кажется этого будет не достаточно и выскочит еще одна ошибка, хотя не факт, вобщем скажи как все прошло)))

Волк-1024

Дата: Понедельник, 23.04.2012, 22:46 | Сообщение # 7

Продвинутый

Группа: Проверенные

Сообщений: 149

Статус: 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

Продвинутый

Группа: Пользователи

Сообщений: 116

Статус: Offline

Да, я полностью согласен с Волк-1024 было бы лучше все перенести в отдельный параметр и уже потом сравнивать его с Edit

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

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

Сообщение отредактировал xXxSh@dowxXx - Понедельник, 23.04.2012, 23:09

cool1

Дата: Вторник, 24.04.2012, 09:03 | Сообщение # 9

Был не раз

Группа: Проверенные

Сообщений: 181

Статус: Offline

Да блин с этим двоеточием тупанул. Спасибо