CharToOem bug

← →
ValeX © (2002-07-23 14:39) [0]

file1:TextFile;
f,s:PChar;
begin
Writeln("Hello!");
AssignFile(file1,"file1.txt");
ReWrite(file1);
f:={PChar(}"ВАСЯ"{)};
Writeln(f);
CharToOem(f,s);
Writeln(s);
CloseFile(file1);
Writeln("CloseFile OK");

Вылетает ошибка:
Exception EAccessViolation in module Project1.exe at 00004050.
Access violation at address 00404050 in module "Project1.exe". Read of address 00000000.

← →
MBo © (2002-07-23 14:46) [1]

а память под PChar-ы ВАСЯ будет выделять?
И я не уловил, зачем нужен файл?

← →
ValeX © (2002-07-23 14:56) [2]

> MBo

надо в файл писать в кодировке дос из под делфи.

← →
MBo © (2002-07-23 14:59) [3]

Открытие и закрытие файла, к сожалению, не приводит к записи в него информации.

> MBo

Я пока ничего и не пишу :)
А вот насчет выделения памати - это правильно подметил.
Сенкс!

> MBo

А как определять раньше винды отсутствие на компе уст. компонента
(например OPC server"а)

CharToOem bug Найти похожие ветки