Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2017, 10:31   #1
moonlight1
 
Регистрация: 29.05.2016
Сообщений: 4
По умолчанию При сохранении Excel через Delphi пропадают запятые

День добрый. У меня есть массив значений, значение выглядят примерно так: "33628343,9081366", далее массив записываю в SG и потом сохраняю из SG в Excel. В SG числа выглядят как надо т.е. с запятой, но в экселе после сохранения когда открываю для проверки вижу что запятой нет, т.е. за место числа "33628343,9081366" получаю число "336283439081366" а это не правильно и дальнейшие расчеты невозможны.
Использовал функцию trunc чтобы избавиться от запятой, по началу это подходило но потом когда стали числа меньше и понадобилась бОльшая точность, этой функцией пользоваться нельзя.
Делал так чтобы при сохранении в эксель ячейки были цифрового формата, но все равно запятая "съедается" и получаю "336283439081366,0000" за место "33628343,9081366" где-то во время сохранения.
Делить числа на 10000000 чтобы было похоже на оригинал нельзя так как числа разные и есть с меньшим числом после запятой, надо это решить как то по хорошему чтобы работало правильно, но я не знаю как.
Так что прошу помощи.
Проект прилагаю:
Вложения
Тип файла: rar Test.rar (536.1 Кб, 6 просмотров)

Последний раз редактировалось moonlight1; 02.04.2017 в 10:34.
moonlight1 вне форума Ответить с цитированием
Старый 02.04.2017, 11:03   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Попробуйте Delphi:
Код:
DecimalSeparator:=',';
может быть поможет..
type_Oleg вне форума Ответить с цитированием
Старый 02.04.2017, 14:10   #3
moonlight1
 
Регистрация: 29.05.2016
Сообщений: 4
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Попробуйте Delphi:
Код:
DecimalSeparator:=',';
может быть поможет..
Спасибо помогло, но надо ставить точку тогда будет работать, если ставить запятую то будет тоже самое, а с точкой все круто.
Еще такой вопрос может тоже поможете, когда я нажимаю на кнопку чтобы открыть файл для загрузки появляется окно с выбором файла и если не выбрать файл и нажать "отмена" то будет ошибка "OLE error 800A03EC".
Просто можно же по ошибке нажать на кнопку загрузки и если нажать отмену то будет ошибка, программа будет работать но не красиво. За место ошибки этой сообщение бы прикрутить что-то вроде "необходимо выбрать файл...", только вопрос как.
moonlight1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массив, ADO, Access, Excel -при сравнении столбцов пропадают данные Moneo БД в Delphi 0 26.02.2016 13:28
Ошибка при сохранении файла excel a2alex Microsoft Office Excel 0 21.05.2013 16:12
лишние кавычки при сохранении книги excel в .txt pooli Microsoft Office Excel 3 23.03.2011 12:43
Delphi (отладка) при запуске поля ввода пропадают djdron Помощь студентам 0 11.11.2010 21:29
excel+vba странности взаимодействия при сохранении книги без макросов alvazor Microsoft Office Excel 7 06.07.2009 17:22