• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

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

    Запись на курс до 25 апреля. Получить промодоступ ...

Работа с Ini файлам

  • Автор темы KuevProger
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

KuevProger

Код:
procedure Logical_indikator;
var
i:integer;
Ini: Tinifile;
begin
for i:=1 To 7 do
begin
Logic[i].Value_V:=Value[i];
ini:=TiniFile.Create(extractfilepath(paramstr(0))+'NetronPow.ini');
>>>>>If  (Logic[i].Value_V>=Ini.ReadFloat('Diapazon','Dreyf_nill_min','')) and (Logic[i].Value_V<=Ini.ReadFloat('Diapazon','Dreyf_nill_max','')) Then Logic[i].Value_Log:=0;
If  (Logic[i].Value_V>=4.5) and (Logic[i].Value_V<=5.5) Then Logic[i].Value_Log:=1;
Ini.Free;
If	Logic[i].Value_Log=0 Then Logic[i].Indikator.Brush.Color:=clLime;
If	Logic[i].Value_Log=1 Then Logic[i].Indikator.Brush.Color:=clRed;
end;
end;
[Error] U_Main.pas(296): Incompatible types: 'Double' and 'String'
Я понимаю что идет несовместимость типов но что сделать хз...
Имеется ввиду ReadFloat на что надо заменить?
 
K

KuevProger

Код:
procedure Logical_indikator;
var
i:integer;
Ini: Tinifile;
begin
for i:=1 To 7 do
begin
Logic[i].Value_V:=Value[i];
ini:=TiniFile.Create(extractfilepath(paramstr(0))+'NetronPow.ini');
>>>>>If  (Logic[i].Value_V>=Ini.ReadFloat('Diapazon','Dreyf_nill_min','')) and (Logic[i].Value_V<=Ini.ReadFloat('Diapazon','Dreyf_nill_max','')) Then Logic[i].Value_Log:=0;
If  (Logic[i].Value_V>=4.5) and (Logic[i].Value_V<=5.5) Then Logic[i].Value_Log:=1;
Ini.Free;
If	Logic[i].Value_Log=0 Then Logic[i].Indikator.Brush.Color:=clLime;
If	Logic[i].Value_Log=1 Then Logic[i].Indikator.Brush.Color:=clRed;
end;
end;
[Error] U_Main.pas(296): Incompatible types: 'Double' and 'String'
Я понимаю что идет несовместимость типов но что сделать хз...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!