кодировка в 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]

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

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