Написал программу для анализа файла txt, в файл постоянно пишется инфа другой программой.
Мне постоянно приходится в ручную обновлять файл для последующего анализа.
Как то можно сделать как в FAR ?
Вот кусок процедуры
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Fs : TFileStream;
Od : TOpenDialog;
begin
combobox1.Enabled:=true;
button3.Enabled:=true;
Combobox2.Enabled:=true;
button4.Enabled:=true;
Od := OpenDialog1;
if Od.InitialDir = '' then
Od.InitialDir := ExtractFilePath( ParamStr(0) );
if not Od.Execute then Exit;
if not FileExists(Od.FileName) then begin
MessageBox(0, 'Ôàéë ñ çàäàííûì èìåíåì íå íàéäåí. Äåéñòâèå îòìåíåíî.'
,'Îòìåíà!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
Exit;
end;
Fs := TFileStream.Create(Od.FileName, fmOpenRead + fmShareDenyNone);
try
Memo1.Lines.LoadFromStream(Fs);
Caption := '' + ExtractFilename(opendialog1.FileName);
StatusBar1.Visible := True;
StatusBar1.Panels[0].Text := OpenDialog1.FileName;
statusbar1.Panels[1].Text:= 'Ñòðîê:'+IntToStr(Memo1.Lines.Count);
finally
FreeAndNil(Fs);
end;
end;