Скачать: CL | DM;

Текстовый файл из 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));

---

← →
zamkom ©   (2004-02-10 13:27) [9]

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

---

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

>zamkom © (10.02.04 13:27) [9]
Опять-таки S должна быть не пуста.

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.97 c