[Nikita4]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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.]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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.]

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

Код:

1 2 3 4 5 6 7 8

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

[Nikita4]

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