Запись в ИНИ файл

[KuevProger]

ПРИВЕТСТВУЮ уважаемый читатель!!!))).
У меня такая проблема нужно сделать чтоб из ини файла выставлялись значения минимум и максимум для массива логического типа вот листинг:

DCB   : TDCB;
  CT:  TCommTimeouts;
  hPort : THandle;
  i:integer;
  ReadThread:TReadThread;
  Value:array[1..9] of real;
  Logic:array[1..7] of Logikal;
  sravnenie:array[1..3] of Logikal;
  tick:integer=0;
  tck_reg:Integer=0;
  Period_Reg:integer=100;
  Form1: TForm1;
  NamePatch:String;
  RegFileName:string;
  RegFile:TFileStream;
  str,st_file:string;
...

begin
for i:=1 To 7 do
 begin
  Logic[i].Value_V:=Value[i];
  If   (Logic[i].Value_V>=-0.5) and (Logic[i].Value_V<=0.5) 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;
  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;
...
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: Tinifile;
begin

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'NetronPow.ini');
???
Ini.Free;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: Tinifile;
begin
  //создали файл в директории программы
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'NetronPow.ini');
  Ini.WriteBool('Диапазон дрейфа нуля','Мин',???);
  Ini.WriteBool('Диапазон дрейфа нуля','Макс',???);
  Ini.WriteBool('Диапазон','Мин',???);
  Ini.WriteBool('Диапазон','Макс',???);
  Ini.Free;
end;

Нужно сделать чтоб Logic[i].Value_V выставлялось в ИНИ файле

Нужно сделать чтоб Logic[i].Value_V выставлялось в ИНИ файле
СПС за ранее
С ув. КуевПрогер)))

[Stilet]

Во-первых: of Logikal; - нет такого типа.
Во-вторых: Ini.WriteBool('Диапазон дрейфа нуля','Мин', Logic[i].Value_V);
В-третьих: В следующий раз тему с подобним названием удалю.

[KuevProger]

Сообщение от Stilet

Во-первых: of Logikal; - нет такого типа.
Во-вторых: Ini.WriteBool('Диапазон дрейфа нуля','Мин', Logic[i].Value_V);
В-третьих: В следующий раз тему с подобним названием удалю.

type
Logikal=record
Value_V:real;
Value_Log:byte;
Indikator:TShape;
Ind_Name:TLabel;
shape:TShape;
sravn_Name:TLabel;

Сообщение от Stilet

Во-вторых: Ini.WriteBool('Диапазон дрейфа нуля','Мин', Logic[i].Value_V);

так не канает...

[VVM]

так не канает...

    Ini.WriteFloat('Диапазон дрейфа нуля','Мин', Logic[i].Value_V);

[Stilet]

так не канает...

Ха. Естественно. И не будет канать, у тебя ни одного нет типа BOOLEAN.

массива логического типа

Логический - это Булевский.
Либо записывай запись как набор байт, либо каждое поле по отдельности.

[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 на что надо заменить?

[Stilet]

А хелп кто читать будет?

function ReadFloat (const Section, Ident: String; Default: Double): Double;

А ты в этом параметре строку пустую поставил.

[KuevProger]

Сообщение от Stilet

А хелп кто читать будет?

А ты в этом параметре строку пустую поставил.

а что мне туда писать надо если я хочу данные считать с ини???

rocedure TVisioThread.Execute;
var
i:integer;
Ini: Tinifile;
begin
For i:=1 To 9 Do
begin
ini:=TiniFile.Create(extractfilepath(paramstr(0))+'NetronPow.ini');
Form2.SG_Reistr.Cells[0,0]:=Ini.ReadString('names','chanell1','');
Form2.SG_Reistr.Cells[0,1]:=Ini.ReadString('names','chanell2','');
Form2.SG_Reistr.Cells[0,2]:=Ini.ReadString('names','chanell3','');
Form2.SG_Reistr.Cells[0,3]:=Ini.ReadString('names','chanell4','');
Form2.SG_Reistr.Cells[0,4]:=Ini.ReadString('names','chanell5','');
Form2.SG_Reistr.Cells[0,5]:=Ini.ReadString('names','chanell6','');
Form2.SG_Reistr.Cells[0,6]:=Ini.ReadString('names','chanell7','');
Form2.SG_Reistr.Cells[0,7]:=Ini.ReadString('names','chanell8','');
Form2.SG_Reistr.Cells[0,8]:=Ini.ReadString('names','chanell9','');
Ini.Free;
Form2.SG_Reistr.Cells[1,i-1]:=FloatToStr(value[i]);
end;

здесь вот работает...

[Stilet]

здесь вот работает...

Потому работает что для ReadString третий параметр строковый, и ты правильно его указал.
А для ReadFloat третим параметром число должно быть. Если тебе все равно то поставь туда 0, если функа не сможет считать из ИНИ тот параметр она вернет тебе этот 0.

[KuevProger]

Сообщение от Stilet

Потому работает что для ReadString третий параметр строковый, и ты правильно его указал.
А для ReadFloat третим параметром число должно быть. Если тебе все равно то поставь туда 0, если функа не сможет считать из ИНИ тот параметр она вернет тебе этот 0.

СПС вроде заработало)))
З.Ы хз че сам не догадался))