Steema Central

Code: Select all

procedure TMainForm.FillFromDataSet(ADataSet: TDataSet; Title : string; SubTitle: string);
  procedure FillFromDataSetPrimitive(SourceDataSet: TDataSet; TargetDataSet: TDataSet);
  var
    Index: Integer;
    FieldName: string;
    Field: TField;
  begin
    SourceDataSet.Open;
    SourceDataSet.First;
    while not SourceDataSet.Eof do
    begin
      TargetDataSet.Append;
      try
        for Index := 0 to SourceDataSet.FieldCount-1 do
        begin
          FieldName := SourceDataSet.Fields[Index].FieldName;
          Field := TargetDataSet.FindField(FieldName);
          if Assigned(Field) then
            Field.Value := SourceDataSet.Fields[Index].Value;
          Field := TargetDataSet.FindField('LINE');
          if Assigned(Field) then
            Field.AsInteger := TargetDataSet.RecordCount;
        end;
      finally
        TargetDataSet.Post;
      end;
      SourceDataSet.Next;
    end;
  end;
var
{$WARN UNSAFE_TYPE OFF}
  Bookmark: TBookmark;
{$WARN UNSAFE_TYPE ON}
begin
  ChartClientDataSet.DisableControls;
  try
    if ChartClientDataSet.Active then
    begin
      ChartClientDataSet.Close;
      ChartClientDataSet.CreateDataSet;
    end;

    ADataSet.DisableControls;
    try
{$WARN UNSAFE_TYPE OFF}
      Bookmark := ADataSet.GetBookmark;
{$WARN UNSAFE_TYPE ON}
      try
        FillFromDataSetPrimitive(ADataSet, ChartClientDataSet);
{$WARN UNSAFE_TYPE OFF}
        ADataSet.GotoBookmark(Bookmark);
{$WARN UNSAFE_TYPE ON}
      finally
{$WARN UNSAFE_TYPE OFF}
        ADataSet.FreeBookmark(Bookmark);
{$WARN UNSAFE_TYPE ON}
      end;
    finally
      ADataSet.EnableControls;
    end;
  finally
    ChartClientDataSet.EnableControls;
  end;

  BalancedScoreCardDBChart.Title.Text.Clear;
  BalancedScoreCardDBChart.Title.Text.Append(Title);
  BalancedScoreCardDBChart.SubTitle.Text.Clear;
  BalancedScoreCardDBChart.SubTitle.Text.Append(SubTitle);
  BalancedScoreCardDBChart.RefreshData;
  BalancedScoreCardDBChart.Align := alClient;
  Panel_Graphs.Align             := alClient;
  Panel_Graphs.Visible           := true;
end;