|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Получаю в 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; |
#2
|
||||
|
||||
Не очень понятно что Вы пытаетесь сделать. Но я предполагаю, что отслеживать количество строк в файле. Следуя Вашим началам, поправлю код:
Код:
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; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
|||
|
|||
dr. F.I.N., спасибо,но у меня последняя версия делфи,компонента CheckLinesCount справа нет.
|
#4
|
||||
|
||||
А это и не компонент. Это метод, который Вы должны добавить вручную к своей форме:
Код:
type TFomt2 = class(TForm) ... public procedure CheckLinesCount(aFileName: string); private ... end; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#5
|
|||
|
|||
dr. F.I.N.,спасибо,буду разбираться.
|