| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Экспорт в EXCEL лицевых счетов [D6, Paradox]
MVVD © (2004-06-25 10:59:00)Для экспорта используется следующее:
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);
Так вот, лицевые счета CHAR(20) преобразуются в число с правающей
точкой, т.е. вместо '12345678901234567890' в 1.23456E19.
Как это победить?
Ильш (2004-06-25 12:26:00) [21]а еще можно Зарядить мозги, если они есть :))))
YurikGL (2004-06-25 11:09:00) [22]
> Ильш © (25.06.04 11:04) [2]
Можно еще выставлять опцию ячейки, что в ней текст а не число.
Соловьев (2004-06-25 11:04:00) [23]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502
Курдль (2004-06-25 11:04:00) [24]Думаю, что ели бы Вы написали код в одну строчку - читалось бы это еще забавнее!
Ильш (2004-06-25 11:04:00) [25]столбец сделать пошире :)))
| |
Страницы: 