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

Вниз

Печать в файл   Найти похожие ветки 

← →
Ольга   (2002-09-09 10:50) [0]

Помогите, мастера!
Есть база DBASE, на ней фильтр.
Подскажите, как сохранить в текстовый файл все записи, удовлетворяющие фильтру?

---

← →
REA   (2002-09-09 10:53) [1]

Есть вариант сделать dataset - текст с разделителями и использовать BatchMove.
Если нужен форматированный вывод типа отчета, то наверно руками по всем записям пройтись.

---

← →
Mike Kouzmine   (2002-09-09 10:54) [2]

while not eof do
begin
for i := 0 to fieldscount - 1 do
case fields[I].datatype of
fkFloat : write(f,fields[i].asFloat;
.....
end;
writeln(f);
end

---

← →
KDS ©   (2002-09-09 14:01) [3]

Параметры вызова
eTable:TDataSet думаю - ясно
eFile - название выходящего файла
App - какой программой его читать пиши "Excel.exe"

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);
// запускаем Эксель! для этого нужен Uses ShellApi;
ShellExecute(handle,"open",PChar(App),PChar(s), nil, SW_SHOWMAXIMIZED);
end;

Удачи тебе, Оленька! :) хоть и не женское это дело ;)

---

← →
Ольга   (2002-09-11 09:57) [4]

Спасибо БОЛЬШОЕ!
А что, много ребят работают с DELPHI-1? :))

---

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

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

Наверх

Память: 0.47 MB
Время: 0.02 c