|
|
От: | Lavrenty | |
| Дата: | 30.04.07 06:36 | ||
| Оценка: | |||
procedure TFormIndicatorBoard.TimerTimer(Sender: TObject);
begin
if FileExists(InputFileName) then begin
if ClientDSArrival.Active = true then begin
ClientDSArrival.EmptyDataSet;
ClientDSArrival.Close;
end;
ClientDSArrival.LoadFromFile(InputFileName)
end else
exit;
end;