Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

_Илья © (2007-04-20 13:39:00)
Здравствуйте

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

Reindeer Moss Eater (2007-04-20 13:58:00) [1]
Методы может быть одни и те же но символы кирилицы различаются.

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

_Илья (2007-04-20 13:54:00) [2]
Методы может быть одни и те же но символы кирилицы различаются.

Плохиш (2007-04-20 13:52:00) [3]

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

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

_Илья (2007-04-20 13:49:00) [4]
уже пробывал AnsiString этот вариант с Shortstring

Reindeer Moss Eater (2007-04-20 13:49:00) [5]
Вы не поняли программа уже написана, но файл коздается в кодировке WINDOWS, а мне нужна кодировка DOS

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

_Илья (2007-04-20 13:47:00) [6]
Вы не поняли программа уже написана, но файл коздается в кодировке 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);

Reindeer Moss Eater (2007-04-20 13:40:00) [7]
FileCreate
WriteFile

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »