как из TDBGridEh выгрузить данные в текстовый файл.

← →
AVP_opck (2004-04-28 10:51) [0]

Не уверен что сам GridEh умеет это делать.
потому пишу процедурку. В принципе можно просто dataset
сверху вниз пройти все поля выгрузить и все.
Но у меня много датасетов(соответственно и гридов под них)
хочу одной этой процедуркой выгружать данные с любого датасета.
делаю вот так.
одну менюшку popup
раздаю ее всем гридам. как узнать в каком гриде менюшка вызвана и как добраться до датасет этого грида??

← →
Соловьев © (2004-04-28 10:55) [1]

> Не уверен что сам GridEh умеет это делать.

Умеет
F1+TDBGridEhExportClass+Demo

← →
Курдль © (2004-04-28 10:55) [2]

> Не уверен что сам GridEh умеет это делать.

Должен! Ищите - да обрящете! TdxGrid от Quantum умеет выгрузиться в текст, ёксель, ХТМЛ, ХМЛ.

← →
AVP_opck (2004-04-28 11:18) [3]

Соловьев

> Умеет
> F1+TDBGridEhExportClass+Demo

подробней можно??

← →
AVP_opck (2004-04-28 11:28) [4]

никаких экспортов никак не найду в Ehlib

← →
Соловьев © (2004-04-28 11:30) [5]

> AVP_opck (28.04.04 11:18) [3]

в каком месте?
F1 - это кнопка на клавиатуре
TDBGridEhExportClass - класс из EhLib которые занимается экспортом
Demo - демки из EhLib, где лучше других тебе все уже рассказали :)

← →
AVP_opck (2004-04-28 11:40) [6]

угу понятно. почитал. просто у меня по F1 ehlib help Не вылазиет.
так нашел файлик помощи и почитал.
с этим все понятно.
я хочу делать выгрузку из менюшки попап. спрашиваю там имя файла через savedialog, привязываю эту менюшку ко всем гридам
и дальше в
SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,"c:\temp\file1.txt",False);
че писать вместо DBGridEh1??
вобчим как мне вытащить это имя грида? как узнать в каком гриде нажато попап?

не знаю как ты смотрел демки....
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;

← →
AVP_opck (2004-04-28 13:08) [8]

Соловьев СПАСИБО!!!!!

> просто у меня по F1 ehlib help Не вылазиет.

в ридми почитай как сделать чтобы вылазил :)

как из TDBGridEh выгрузить данные в текстовый файл. Найти похожие ветки