Сохраняет файл не в той кодировке

@Frodo4500 · Регистрация: 19.12.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток, надеюсь именно ВЫ мне сможете помочь

Суть проблемы в том, что файл сохраняется, НО если открыть его любым текстовым редактором, в ответ видишь непонятные символы. Как сделать так, чтобы сохраняла в нормальной кодировке (проще говоря, на русском языке).

Язык программирования : Delphi
Файл сохраняю с помощью TFileStream и SaveDialog
модуль с нужным кодом "MAI"
За загрузку файла отвечают строки с 770-863
За сохранение файла отвечают строки 880-955 и/или (в зависимости, что выбрали "Сохранить" или "Сохранить как" ) с 957 - 1015

Надеюсь, вы мне сможете помочь

Заранее ОГРОМНОЕ СПАСИБО !

@Mawrat · 14.06.2015, 00:17

Там дело не в кодировке. В ряде случаев записывается мусор, где-то - двоичные данные (не текстовые).
Например:

Delphi

1	SvFile.write(opt,sizeOf(opt));

Здесь переменная opt принадлежит типу:

Delphi

TMyFile=Record
  c:byte;{0- TrackBar, 1-Bar,2-None(Unit2)}
  e:boolean;{Показывает, есть ли ошибка в текущий момент}
  MaxTrk,{MOptions.MaxTrk}
  Changemax:integer;{MOptions.Changemax}
  Elem:boolean;//Вписывать или нет фразу 'Название Элемента'
  IerhLev:Boolean;//Выделять или нет уровни ирерархий
  Col:(one,all,none);//Выделять или нет вертикали в конечной матрице
  Autsv:Boolean;//Автосохранение
  Resurs:Boolean;//Режим сберегания ресурсов
end;

Запись (Record) этого типа не является упакованной. Поэтому может содержать байты выравнивания, не несущие полезной информации и предназначенные для того, чтобы выровнять поля записи по границам 4-ёх или 8-ми байтных слов. Если запись предназначена для записи/чтения из файлов, то её тип лучше объявить упакованным - packed record. В этом случае переменные этого типа не будут содержать байтов выравнивания.
Пояснения: Упакованные и неупакованные структуры. Байты выравнивания.

Кроме этого, тип TMyFile содержит, например, логического типа. Такие значения будут записаны в виде байта со значением 0 или -1. Причём, значение -1 приведённое к типу AnsiChar будет представлено кодом: AnsiChar(255 - 1) = AnsiChar(254) = "■". Подобное будет происходить и с другими двоичными (не текстовыми) данными. Чтобы такие данные записать в виде, пригодном для чтения человеком, надо выполнить соответствующие преобразования с помощью вызовов: BoolToStr(), IntToStr(), FloatToStr() и т. д.

Вместо такого кода:

Delphi

  st:=Memos[2,i1].text;
  vr:=length(st);
  SvFile.write(vr,sizeof(integer));
  for i2:=1 to vr do
    SvFile.write(st[i2],sizeof(char));

следует писать так:

Delphi

1 2	st:=Memos[2,i1].text; SvFile.write(st[1], Length(st) * SizeOf(Char));

И т. д.

@northener · 14.06.2015, 00:22

Сообщение от Frodo4500

если открыть его любым текстовым редактором, в ответ видишь непонятные символы.

А нафига открывать нетекстовый файл в текстовом редакторе?

@Frodo4500 · 14.06.2015, 09:13 **[ТС]**

northener, Для универсальности, чтобы была возможность внести мелкие изменения в файл с данными

@northener · 15.06.2015, 12:09

Сообщение от Frodo4500

northener, Для универсальности, чтобы была возможность внести мелкие изменения в файл с данными

Для универсальности существуют т.н. HEX-редакторы.

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	14.06.2015, 00:22	3
	Сообщение от Frodo4500 если открыть его любым текстовым редактором, в ответ видишь непонятные символы. А нафига открывать нетекстовый файл в текстовом редакторе? 0

@Frodo4500 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 108
	14.06.2015, 09:13 [ТС]	4
	northener, Для универсальности, чтобы была возможность внести мелкие изменения в файл с данными 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	15.06.2015, 12:09	5
	Сообщение от Frodo4500 northener, Для универсальности, чтобы была возможность внести мелкие изменения в файл с данными Для универсальности существуют т.н. HEX-редакторы. 0

Сохраняет файл не в той кодировке

Решение