Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

кодировка в listbox   Найти похожие ветки 

 
denis24   (2004-01-19 16:22) [0]

Читаю строки из текстового файла и зачем пишу в листбокс,но там отображаются одни нечит символы.Уже пробовал перед записью ю листбокс конвертнуть их с помощью ф-ций AnsiToOemBuff и CharToOemBuff.Но результат тотже.В простом текстовом редакторе открываю файл и все ок.Где собака порылась?


 
Anatoly Podgoretsky ©   (2004-01-19 16:23) [1]

Какой шрифт и скрипт используется в текстовом редакторе?


 
denis24   (2004-01-19 16:35) [2]

Фар пишет что кодировка дос.Если в листбоксе поставить кодиовку OEM_charsetто все ок


 
Anatoly Podgoretsky ©   (2004-01-19 16:40) [3]

Тогда OEMToChar


 
denis24   (2004-01-19 17:56) [4]

Ставлю кодировку в листбоксе в дефалт.Конвертирую строку перед записью в листбокс ф-ей oemtocharbuff .но всеравно тоже самое.
Пробовал и oemtoansibuff-тоже самое.Нечитаемые символы


 
Eugene1501 ©   (2004-01-19 18:38) [5]

Ну сделай тогда файл в кодировке win.


 
Андрей Сенченко ©   (2004-01-19 18:45) [6]

Код дай посмотреть - там где читаешь файл, конвертируешь и пишешь в бокс. Есть подозрение, что Ты чего-то не того делаешь.
Все должно быть хорошо.

Кстати - а зачем OemToCharBuff ? OemToChar


 
Андрей Сенченко ©   (2004-01-19 18:59) [7]

Function WinToDos (stWin : string) : string;
var
stDOS : pchar;
begin
getmem(stDOS,1048);
CharToOem(pchar(stWIN),stDOS);
WinToDos := string(stDOS);
freemem(stDOS);
end;

Function DosToWin (stDOS : string) : string;
var
stWIN : pchar;
begin
getmem(stWIN,1048);
OemToChar(pchar(stDOS),stWIN);
DosToWin := string(stWIN);
freemem(stWIN);
end;


 
denis24   (2004-01-20 09:45) [8]

Пишу вот так.
assignFile(f,FilenameEdit1.Text);
reset(f);
while eof(f)=false do begin
Readln (f,str);
dostowin(str);
CheckListBox1.Items.Add(str);
end;
CloseFile(f);

Процедура dostowin через oemtochar


 
denis24   (2004-01-20 09:48) [9]

Все разобрался .Моя ошибка.Неправильно вызывал ф-цию.



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

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
9-1944
r0n1n
2003-07-17 01:50
2004.02.02
Массив типов


3-1984
Aleksandr
2004-01-08 13:12
2004.02.02
Как в ClientDataSet организовать выборку из ClientDataSet ов.


3-2011
_Dima_
2004-01-06 01:53
2004.02.02
Что выбрать для хранения данных?


4-2405
Вадим
2003-11-25 21:13
2004.02.02
Ничего не понимаю! Помогите разобраться.


3-1959
KIR
2004-01-09 13:41
2004.02.02
Можно ли сложить строки в ХП IB