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;
Я понимаю что идет несовместимость типов но что сделать хз...
Имеется ввиду ReadFloat на что надо заменить?