[kolin2112]

Огромное вам человеческое спасибо!!!! тока такой теперь вопрос как периминовать столбци. вот напимер у меня стабец А1 должен называтся цех. как присвоть эти названия? И скажите почему он у меня не сейвит что что отображено в гриде вот код

Код:

var
  saveDialog : TSaveDialog;    // Переменная диалога сохранения
begin
  // Создание объекта диалога сохранения - назначая его нашей переменной диалога сохранения
  saveDialog := TSaveDialog.Create(self);
      // Give the dialogсохранять a title
  saveDialog.Title := 'Save your text or word file';
    // Установка начального каталога
  saveDialog.InitialDir := GetCurrentDir;
     // Разрешаем  файлы типа .txt и .doc
  saveDialog.Filter := 'Excel|*.xls|Word|*.doc';
      // Установка расширения по умолчанию
  saveDialog.DefaultExt := 'xls';
    // Выбор текстовых файлов как стартовый тип фильтра
  saveDialog.FilterIndex := 1 ;
    // Отображение диалог сохранения файла
  if saveDialog.Execute
  then ShowMessage('File : '+saveDialog.FileName)
  else ShowMessage('Save file was cancelled');
    // Освобождения диалога
  saveDialog.Free;
end;

[Страдалецъ]

Потому-что это только диалог который как-бы подготавливает информацию для сохранения, а сам он ничего не сохраняет, это уже вы сами должны делать используя информацию диалога для сохранения.
В вашем случае вам придется написать код для всех трех вариантов экспорта doc,xls,txt

[kolin2112]

А по остольному ктонить подскажит можеть ченить? как все уже понили что я в делфи не шпарю, а сделать надо((

[kolin2112]

АУ народ!!! вот кусок рабочего кода взял из демки,

Код:

procedure TForm1.ppmSaveSelectionClick(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
begin
  SaveDialog1.FileName := 'file1';
  if (ActiveControl is TDBGridEh) then
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
             SaveDialog1.FileName,False);
      end;
    end;
end;

перенашу на свою форму ругается на ExpClass:TDBGridEhExportClass;
чего делать?