Кодировка строк

← →
_Илья © (2007-04-20 13:39) [0]

Здравствуйте

Подскажите как записать текстовый файл а кодировке DOS

← →
Reindeer Moss Eater © (2007-04-20 13:40) [1]

FileCreate
WriteFile

или другие методы.

← →
_Илья © (2007-04-20 13:47) [2]

Вы не поняли программа уже написана, но файл коздается в кодировке WINDOWS, а мне нужна кодировка DOS

Код
if saveDialog1.Execute then
begin
IF FileExists(saveDialog1.Filename) then
AssignFile(F, saveDialog1.Filename)
else
AssignFile(F, saveDialog1.Filename+".txt");
ReWrite(F);
end
else exit;
for i:=0 to stringgrid1.RowCount-1 do
begin
for j:=0 to 2 do
write(f,ShortString(stringgrid1.cells[j,i]),chr(9));
writeln(f,ShortString(stringgrid1.cells[3,i]));
end;
CloseFile(F);

← →
_Илья © (2007-04-20 13:49) [3]

уже пробывал AnsiString этот вариант с Shortstring

← →
Reindeer Moss Eater © (2007-04-20 13:49) [4]

Вы не поняли программа уже написана, но файл коздается в кодировке WINDOWS, а мне нужна кодировка DOS

У файла нет никакой кодировки.
И методы создания и записи файлов одни и те же.
Хоть dos хоть windows кодировка у данных этого файла.

← →
Плохиш © (2007-04-20 13:52) [5]

> _Илья © (20.04.07 13:47) [2]

Перед сохранением строки нужно преобразовать с помощью функции CharToOem

Методы может быть одни и те же но символы кирилицы различаются.

Методы может быть одни и те же но символы кирилицы различаются.

И зачем тогда спрашивать про запись файла, если это здесь не причем?

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