Получаю в Label1 количество строк в файле 1.txt,но не могу никак обновить?

[Taifq]

На форме есть ячейка количества стрк, пытаюсь обновить значение через 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);
  //Label1.Refresh
  //list.Free; 
end; 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
//if FileExists('C:\1.txt') then  Label1.Caption:='';
 end;

[min@y™]

А чо не так-то? Тебе надо отслеживать моменты, когда с файлом произошло изменение, открыть его, посчитать кол-во строк и отобразить в Label на форме?

Файл-то чем изменяется? Какой программой?

[Taifq]

В файл записываются строки другим скриптом.

[min@y™]

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

В файл записываются строки другим скриптом.

Покаж скрипт.

[Taifq]

Пока в разработке.Но в целом,простая запись в файл.

[min@y™]

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

Пока в разработке.Но в целом,простая запись в файл.

Так если скрипт твой, то пусть он после записи файла передаёт число строк в приложение. Нахрена 2-й файл-то читать?

[jillitil]

TForm1 = ...
  LastFileAccessDT : TDateTime;
  MyFileName: String;
end;
...

function TForm1.GetFileAccesDT(MyFileName: String): TDateTime;
...

procedure TForm1.ReadCountAndDisplayFileLines;
var S:string;
   list : TStringList;
begin
   list := TstringList.Create;
   list.LoadFromFile(MyFileName);
   Label1.Caption:=IntToStr(list.Count);
  //Label1.Refresh
  //list.Free; 
end; 

Procedure Timer1Timer;
...
  If LastFileAccessDT <> GetFileAccesDT(MyFileName) then  // Если дата последнего доступа к файлу не менялась, то незачем его читать очередной раз.
  begin
    LastFileAccessDT := GetFileAccesDT(MyFileName);
    ReadCountAndDisplayFileLines;
  end;
...

[Taifq]

Спасибо,всем за ответы.