[Nikita4]

На форме есть ячейка количества стрк, пытаюсь обновить значение через 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;

[dr. F.I.N.]

Не очень понятно что Вы пытаетесь сделать. Но я предполагаю, что отслеживать количество строк в файле. Следуя Вашим началам, поправлю код:

Код:

procedure TForm2.CheckLinesCount(aFileName: string);
begin
  if not FileExists(aFileName) then
    Label1.Caption := 'File not found.'
  else
  with TStringList.Create do
  try
    LoadFromFile(aFileName);
    Label1.Caption := Count;
  finally
    Free;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  CheckLinesCount('C:\1.txt');
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  CheckLinesCount('C:\1.txt');
end;

[Nikita4]

dr. F.I.N., спасибо,но у меня последняя версия делфи,компонента CheckLinesCount справа нет.

[dr. F.I.N.]

А это и не компонент. Это метод, который Вы должны добавить вручную к своей форме:

Код:

type
  TFomt2 = class(TForm)
    ...
    public
     procedure CheckLinesCount(aFileName: string);
    private
      ...
  end;

[Nikita4]

dr. F.I.N.,спасибо,буду разбираться.