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

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

← →
_Илья ©   (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

---

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

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

---

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

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

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

---

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

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



Память: 0.46 MB
Время: 0.033 c