sResult: TFastLineSeries;
sData: TFastLineSeries;
sSmoothing: TFastLineSeries;
sTrend: TFastLineSeries;
Splitter1: TSplitter;
procedure aAnalysisExecute(Sender: TObject);
procedure DBGrid2TitleClick(Column: TColumn);
procedure cbHideSmoothingClick(Sender: TObject);
procedure cbHideTrendClick(Sender: TObject);
procedure cbHideResultClick(Sender: TObject);
procedure cbHideDataClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure cbHideValuesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fRointers: TfRointers;
implementation
{$R *.dfm}
uses udmData, ufAnalyserParams;
procedure TfRointers.aAnalysisExecute(Sender: TObject);
procedure GetValues;
var
I : Integer;
begin
//
mValues.Clear;
mValues.Lines.Add ('Прогноз');
mValues.Lines.Add ('');
for I := 1 to dmData.cdsAnalysis.RecordCount do
begin
//
dmData.cdsAnalysis.RecNo := I;
if (dmData.cdsAnalysisResult.IsNull = false) then
begin
mValues.Lines.Add ('Дата ' + dmData.cdsAnalysisDate.AsString);
mValues.Lines.Add ('Прогноз ' + dmData.cdsAnalysisResult.AsString);
mValues.Lines.Add ('');
end;