Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

BDE excell   Найти похожие ветки 

 
Atamali Mamedov   (2002-09-24 12:27) [0]

Kak cherez bde sozdat excell fayl i zapisivat tuda dannie


 
KDS ©   (2002-09-24 13:02) [1]

procedure TfmMain.ExportToOffice(eTable:TDataSet; eFile, App:AnsiString);
const c="C:\";
var F:TextFile;
s,Cell:AnsiString;
i:Integer;
begin
S:=c+eFile;
AssignFile(F, S);
Rewrite(F);
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + eTable.Fields[i].DisplayName + Chr(9);
WriteLn(F,Cell);
WriteLn(F,"");
with eTable do try
DisableControls;
First;
while not eof do begin
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + Fields[i].AsString+Chr(9);
WriteLn(F, Cell);
Next;
end;
finally
EnableControls;
end;
CloseFile(F);
ShellExecute(handle,"open",PChar(App),PChar(s),nil,SW_SHOWMAXIMIZED);
end;


Нужен uses ShellApi;
Вызывать так ExportToOffice(Table1, "file1.txt","Excel.exe");
Соотв. "file1.txt" можно читать любой программой


 
Atamali Mamedov   (2002-09-24 13:30) [2]

Takoy mne ne interesuet esli v excelle column seperator stoit " ili ; to nicego ne poluchitsya.


 
Atamali Mamedov   (2002-09-25 08:24) [3]

Pomagite kto nibud!


 
vvm   (2002-09-25 09:44) [4]

Посмотри здесь
http://www.afalinasoft.com/rus/tips/index.html
http://www.delphikingdom.com/helloworld/excelsm.htm


 
Atamali Mamedov   (2002-09-25 09:54) [5]

vvm
A on ochen medlenno rabotaet i esli slijkom mnogo dannix to zavisaet...


 
Atamali Mamedov   (2002-09-25 11:09) [6]

Pomagite kto nibud!


 
Atamali Mamedov   (2002-09-25 13:06) [7]

Pomagite kto nibud!



 
andrey_pst ©   (2002-09-25 15:39) [8]

vvm тебе дело посоветовал.
а насчет медленно "работает" и "зависает" ты поподробнее опиши - с чего ты это взял ? Прочитал где-то или это собственный опыт. Если собственный опыт - то опиши в чем проблема ...
А пока это все выглядит как: сделайте мне хорошо, да так, чтобы ресурсов компа у меня не убыло, а еще лучше - чтобы прибыло.


 
Atamali Mamedov   (2002-09-26 13:34) [9]

andrey_pst
Ranshe ya ispolzoval to je samiy alqoritm chto predlaqal KDS .No etot variat ne udobel esli regional settigs kompov razniy (togda i seperator toje bivayut raznimi)
iz za etogo ya reshil izpolzovat metot vvm.no kogda zapisi mnogo (primerno 20000) to excel pochti zavisaet.Rabotaet medlenno...


 
Mike Kouzmine   (2002-09-26 13:45) [10]

Возми компаненты соответствующие, например, prReport или ... да много их, посмотри в кладовке.



Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
14-56343
Alx2
2002-09-20 12:24
2002.10.17
Если бы люди водили автомобили также, как они работают на


1-56097
Nikoss
2002-10-08 21:55
2002.10.17
Как узнать код символов


1-56160
SinnerPro
2002-10-07 12:11
2002.10.17
Вопрос о форме ( окне программы )


1-56050
Gaber
2002-10-08 13:11
2002.10.17
Возможно ли в одном Label1.Caption ввести текс в 2 строки


1-56222
Sago
2002-10-07 13:22
2002.10.17
ProgresBar