![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() На форме есть ячейка количества стрк, пытаюсь обновить значение через 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; |