Главная страница
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
6-2260
Andry
2003-11-28 18:28
2004.02.02
Как узнать ждет ли сервер


1-2186
TUser
2004-01-17 19:08
2004.02.02
Как назначить диску свою иконку


3-2019
Paster
2004-01-06 16:09
2004.02.02
Тригеры


9-1945
TEST
2003-07-17 20:58
2004.02.02
Delphi поддерживает .mb, .ma, .lwo, xsi?


3-1987
Юля П
2004-01-08 16:00
2004.02.02
Запрос с группировкой записей