ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / import from Excel
8 сообщений из 8, страница 1 из 1
import from Excel
    #32280967
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Здраствуйте!

Возникла проблема.

Есть следующий код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
var
 ID: String;

...

ID := Sheet.Cells[i,  1 ].Value;

...


Все работает номально до тех пор, когда встречается цифровое значение.
Возникает ошибка преобразования.

Что может тут помочь?
...
Рейтинг: 0 / 0
01.10.2003, 16:04
| Ответить | Цитировать | Написать  
import from Excel
    #32280973
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
для string нужно
ID := Sheet.Cells[i, 1];
для чисел
ID := Sheet.Cells[i, 1].Value;
...
Рейтинг: 0 / 0
01.10.2003, 16:06
| Ответить | Цитировать | Написать  
import from Excel
    #32280979
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Спасибо !!!
...
Рейтинг: 0 / 0
01.10.2003, 16:08
| Ответить | Цитировать | Написать  
import from Excel
    #32280981
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Да, но в таком случае получается ошибка:
Invalid variant operation
...
Рейтинг: 0 / 0
01.10.2003, 16:10
| Ответить | Цитировать | Написать  
import from Excel
    #32280984
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
А
Код: plaintext
ID:=string(Sheet.Cells[i,  1 ].Value)
?
...
Рейтинг: 0 / 0
01.10.2003, 16:12
| Ответить | Цитировать | Написать  
import from Excel
    #32281014
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Ты просто не учел что если в ячейке на число, то возвращается стринг, если любое число, дробное в том числе, тот и возврается число. floattostr если только поможет
...
Рейтинг: 0 / 0
01.10.2003, 16:27
| Ответить | Цитировать | Написать  
import from Excel
    #32281319
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Уж не знаю глюк это или не глюк, но :

В таблице есть три колонки - Текст, Число, Число.

XXX, 10,20
CCC, 30,40
300,50,60 // Замечу, что 300 это "три ноль ноль"

Так вот на этом то и затыкается. Правда при такой конструкции :

if (Sheet.Cells[i, 1].Value <>'') then ...
...
Рейтинг: 0 / 0
01.10.2003, 23:27
| Ответить | Цитировать | Написать  
import from Excel
    #32281385
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
А если так if (Sheet.Cells[i, 1].Value <>0) then
или if (Sheet.Cells[i, 1] <>'') then
...
Рейтинг: 0 / 0
02.10.2003, 07:52
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / import from Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]