|
#16
|
|||
|
|||
Огромное вам человеческое спасибо!!!! тока такой теперь вопрос как периминовать столбци. вот напимер у меня стабец А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; Последний раз редактировалось kolin2112, 10.07.2012 в 09:07. |
#17
|
||||
|
||||
Потому-что это только диалог который как-бы подготавливает информацию для сохранения, а сам он ничего не сохраняет, это уже вы сами должны делать используя информацию диалога для сохранения.
В вашем случае вам придется написать код для всех трех вариантов экспорта doc,xls,txt Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 10.07.2012 в 11:32. |
#18
|
|||
|
|||
А по остольному ктонить подскажит можеть ченить? как все уже понили что я в делфи не шпарю, а сделать надо((
|
#19
|
|||
|
|||
АУ народ!!! вот кусок рабочего кода взял из демки,
Код:
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; чего делать? |