Текстовый файл из DOS

← →
Марат (2004-02-10 12:42) [0]

Здравствуйте, мастера. Проблема такая: при считывании из текстового файла в StringGrid вместо букв-абракадабра. Можно ли решить такую проблему?

← →
Radionov Alexey © (2004-02-10 12:46) [1]

Страница кодовая другая. См. OemToChar:
--------------
The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string. (OEM stands for original equipment manufacturer.)
-----------------

← →
Марат (2004-02-10 12:53) [2]

А где такое прописывается?

← →
Radionov Alexey © (2004-02-10 12:57) [3]

>Марат (10.02.04 12:53) [2]
Либо конвертировать файл во время загрузки. Либо после нее конвертировать уже загруженные данные (часто много медленнее).
Например, прогнать через OEMToChar свойство Text.

← →
Марат (2004-02-10 13:02) [4]

А можно небольшой пример?

← →
Radionov Alexey © (2004-02-10 13:12) [5]

Несколько расточительный пример:
Procedure TForm1.Button7Click(Sender: TObject); Var S: String; Begin With TStringList.Create Do Try LoadFromFile("someOEMfile.txt"); S := Text; OemToChar(PChar(S), PChar(S)); Memo1.Lines.Text := S; Finally free; End End;

← →
Radionov Alexey © (2004-02-10 13:13) [6]

В догонку к [5]
Нужно отслеживать случай, когда S ничего не содержит. Иначе - AV

← →
Марат (2004-02-10 13:20) [7]

У меня вот так:
...
ReadLn(F,S);
OemToChar(PChar(S),PChar(S));
т.е. читаю строку, но выдается ошибка "Access violation at address ... in module "user32.dll""

← →
Radionov Alexey © (2004-02-10 13:25) [8]

>Марат (10.02.04 13:20) [7]
ReadLn(F,S);
if S<>"" then
OemToChar(PChar(S),PChar(S));

Попробуй так:
OemToChar(@S[1], @S[1])

← →
Марат (2004-02-10 13:44) [11]

Большое СПАСИБО!!!

Текстовый файл из DOS Найти похожие ветки