[ASMADAI]

Извините, но помогите еще в одном плане. Все тот же гребаный диплом.
Задача, когда в текстовом файле сохраняется информация, на пример
Температура
22
Вентиляция
1500
Сигнализация
1
мне ее нужно от туда взять и в соответствии с наваниями (Температура, вент...) вставить пришедшие данные в соответствующие окошки.
edit, для температуры и вентиляции; CheckBox для других

Помогите пожалуйсто, а то чтото никак

[Страдалецъ]

Если название параметра не повторяется в файле, то можно так:

Код:

Type TMyData = record
         T,V,S: Integer;
        end;
 Var
     MyData: TMyDate;
     F: TextFile;
     S: String; 
begin
 AssignFile(F,'MyData.txt');
 Reaset(F);
 while not Eof(F)
 do begin
     ReadLn(F, S1);
     ReadLn(F, S2);
     if S1 = 'Температура' then MyData.T := StrToInt(S2);
     if S1 = 'Вентиляция' then MyData.V := StrToInt(S2);
     if S1 = 'Сигнализация' then MyData.S := StrToInt(S2);
     end; 
 CloseFile(F);
end;

[AlexSku]

Проще работать с ini-файлами, напр.:
[Group1]
Temperature=22
Ventilation=1500
Пример из Help'а:

Код:

procedure TForm1.FormActivate(Sender: TObject);

var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create('myapp.ini');
  with MyIniFile do
  begin
    if ReadBool('AutoLoad', 'FormProperties', False) = True then
    begin
      Visible := ReadBool('FormOptions', 'Visible', True);
      Color := TColor(ReadInteger('FormOptions', 'Color', clNormalBackground));
      Caption := ReadString('FormOptions', 'Caption', 'Main');
  end;
  MyIniFile.Free;

end;