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

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

KuevProger

#1
Код:
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

#2
Код:
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'
Я понимаю что идет несовместимость типов но что сделать хз...
 
Статус
Закрыто для дальнейших ответов.