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

Тема в разделе "Delphi - FAQ", создана пользователем KuevProger, 16 апр 2009.

Статус темы:
Закрыта.
  1. KuevProger

    KuevProger Гость

    Код (Text):
    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 на что надо заменить?
     
  2. KuevProger

    KuevProger Гость

    Код (Text):
    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'
    Я понимаю что идет несовместимость типов но что сделать хз...
     
  3. etc

    etc Гость

    Что такое - Logic ?
    ткнуть в еррор, нажать F1, прочитать, сделать соотв. выводы.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей