Текст в Label и cfg фаил.

[54rus]

Смысл такой:
Есть форма, на ней три строки Label.
есть cfg фаил который состоит из 3х строк.
Как сделать чтобы при изменении cfg файла менялись и строки Label соответственно.

[VVM]

Если нужно отображение сразу - в таймере каждый раз загружать из файла в Labels.

[54rus]

да, надо сразу при загрузке окна чтобы текст в Label приравнивался к тексту в cfg файле.

[VVM]

Тогда добавьте еще и в событие OnCreate формы загрузку из файла.

[Neeter]

Наверно ТС надо, чтобы не в таймере, а просто загружался текст при открытии программы, и похоже ТС просто не знает как загрузить из этого файла текст в метки... И все. Вот код:

procedure TForm1.FormCreate(Sender: TObject);
var
 cfg: TextFile;
 str: string;
begin
 AssignFile(cfg, ExtractFilePath(ParamStr(0)) + 'filename.cfg');
 try
  Reset(cfg);
  Readln(cfg, str);
  Label1.Caption := str;
  Readln(cfg, str);
  Label2.Caption := str;
  Readln(cfg, str);
  Label3.Caption := str;  
 finally
  CloseFile(cfg);
 end;
end;

Вы это имели в виду?

[Terran]

Вот ещё удобный вариантик:

Procedure TForm1.FormCreate(Sender: TObject);
Var
S: TStringList;
Begin
S:=TStringList.Create;
S.LoadFromFile('файл.cfg');
Label1.Caption:=S.Strings[0];
Label2.Caption:=S.Strings[1];
Label3.Caption:=S.Strings[2];
S.Free;
End;

Если нужно постоянно следить, то можете поставить этот код в таймер.

[54rus]

нет, постоянно следить не надо. большое спасибо

[Stilet]

Как сделать чтобы при изменении cfg файла менялись и строки Label соответственно.

Я бы его (файл) на прослушку поставил функцией FindFirstChangeNotification или ReadDirectoryChanges