Форум: "Базы";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
gek   (2001-12-17 15:16) [4]

const
tb9=#9;
var
PrintFile:Textfile;
AssignPrn(PrintFile);
Rewrite(PrintFile);
Printer.Canvas.Font:=DBGrid_total.Font;
while not eof do
begin
Application.ProcessMessages;
for k:=0 to DBGrid_total.Columns.Count -1 do
Write(f,DBGrid_total.Columns[k].Field.Value,tb9);
writeln(f,"");
Next;
Application.ProcessMessages;
end;
System.CloseFile(PrintFile);

---

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

Форум: "Базы";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c