Показать сообщение отдельно
  #1  
Старый 26.01.2019, 17:13
Nikita4 Nikita4 вне форума
Прохожий
 
Регистрация: 22.12.2018
Сообщения: 13
Версия Delphi: Delphi 14
Репутация: 10
По умолчанию Получаю в Label1 количество строк в файле 1.txt,но не могу никак обновить?

На форме есть ячейка количества стрк, пытаюсь обновить значение через TTimer или Refresh.Как прописать правильно?

Код:
procedure TForm2.FormCreate(Sender: TObject);
var S:string;
   list : TStringList;
begin
   list := TstringList.Create;
   list.LoadFromFile('C:\1.txt');
   Label1.Caption:=IntToStr(list.Count);
  //TstringList.Refresh
  //list.Free;

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
//if FileExists('C:\1.txt') then  Label1.Caption:='';
 end;
Ответить с цитированием