Форум: "Начинающим";
Текущий архив: 2015.01.25;
Скачать: [xml.tar.bz2];
ВнизImport Excel with Unicode Найти похожие ветки
← →
Demo (2013-12-24 15:57) [0]Здравствуйте!
Можно ли импортировать юникод текст из Excel используя Delphi 2007 ?var
Excel: variant;
I : integer;
A : WideString;
begin
if not OpenDialog1.Execute then Exit;
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open(OpenDialog1.FileName);
for i := 1 to 100000 do
begin
A := Excel.Sheets[1].Cells[i, 1].Text;
if A = "" then break;
TntMemo1.Lines.Add(A);
end;
Excel.Visible := True;
end;
При присвоении текста к переменной A, отладка показывает что переменная уже без специфических букв. Пробовал искать в интернете но ничего не нашел, возможно ли импортировать юникод или необходимо использовать другие версии Delphi ?
← →
sniknik © (2013-12-24 18:12) [1]> A, отладка показывает что переменная уже без специфических букв
отладка сама не юникодная (и также делает авто конвертацию при присвоении)... тем не менее работать с юникодом можно и в D7.
смотри дамп по адресу переменной (в ее свойствах выставить).
← →
Demo (2013-12-25 07:31) [2]Действительно, дело в переменной, она теряет юникод, при выводе в мемо
Excel.Sheets[1].Cells[i, 1].Text, юникод не теряется. Попробую разобраться с вашим советом. Спасибо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.01.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c