Сохранение графика в файл.

[Nightway]

Как сохранить график Chart и таблицу stringgrid в файлы?

[Аватар]

http://www.google.com.ua/search?q=Ch...23.D4gMco0JOsA
http://www.google.com.ua/search?q=St...51.Suin2QOB6yY

[Sibedir]

сохранить stringgrid - копать на тему "работа с файлами" (100 способов, годится любой, всё зависит от уровня знаний и конкретной задачи)
сохранить Chart - есть подозрение, что содержимое самого Chart'а сохранять не нужно, а нужно "перерисовать" его после заполнения stringgrid'а или иного "источника". Если же Chart - динамически создаваемый, то тут сложнее. Но нужно сохранять не его содержимое, а список исходных данных. Ну а если нужно просто картинку сохранить, то Аватар уже поискал за вас в Google.

[Nightway]

в общем такая ошибка вот такой код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    function GetExcelFileName: String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ComObj;

const
  EXCEL_FILE_EXT = '.xls';

function TForm1.GetExcelFileName: String;
begin
  Result := ExtractFilePath(Application.ExeName) + Edit1.Text;

  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then
    Result := Result + EXCEL_FILE_EXT;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 ExcelApp, Sheet: variant;
 Col, Row: Word;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible := false;

    ExcelApp.Workbooks.Add;
    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];

    for Col := 0 to StringGrid1.ColCount - 1 do
      for Row := 0 to StringGrid1.RowCount - 1 do
        Sheet.Cells[Row + 1, Col + 1] := StringGrid1.Cells[Col, Row];

    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);

    ShowMessage('Ok!');
  finally
    ExcelApp.Application.Quit;
    ExcelApp := unassigned;
  end;
end;

end.

но возникает ошибка ss (2014-04-10 at 09.26.55).jpg
как быть?

[XE5]

как быть?

Для начала почитать макулатуру на тему "Правильное объявление процедур и функций". В ошибках первое слово после двоеточия пробей в переводчике гугл.

[Serge_Bliznykov]

простите, а что не так?
скопировал себе приватную функцию в отдельный проект.
всё работает.

Только не могу понять, почему код функции на скриншоте не соответствует код в сообщении!!

p.s. телепатирую, в том коде, который показан с ошибкой на скриншоте забыли сделать объявление функции в классе:

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    function GetExcelFileName: String;
  public

[XE5]

Просто код выше, это код, найденный, предположим в интернете, а скриншот ниже, это попытка запилить код выше в свой проект. Со всеми вытекающими.