Файл в кодировке ANSI

@Grom13 · Регистрация: 28.08.2014

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

Лазарус работает с UFT8 и файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8.
Необходимо:

открыть файл "1.txt"(utf8) и сохранить его в файл "2.txt"(ansi).
открыть файл "2.txt"(ansi) и добавить строку String в кодировке Ansi не нарушая кодировку файла.

1й пример кода, вариант "консольный":

Delphi

var
   St8: UTF8String;
   St: String;
   t0, t2: TextFile;
begin
         AssignFile( t0, '2.txt' );
         rewrite( t0 );
         AssignFile( t2, '1.txt' );
         reset( t2 );
         while not EOF( t2 ) do begin
               ReadLn( t2, St8 );
               St:= Utf8ToAnsi( St8 );
               WriteLn( t0, St );
         end;
         CloseFile( t2 );
end;

2й пример кода, вариант "компонентный"

Delphi

var
   List: TStringList;
   St: String;
begin
         List.LoadFromFile( '2.txt' );
         List.Add( Utf8ToAnsi(st) );
         List.SaveToFile( '2.txt' );
end;

оба варианта не работают.

Добавлено через 2 минуты
Принимаются любая конструктивная критика.

@volvo · 02.04.2016, 14:08

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

файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8

Ничего подобного. TStringList не меняет кодировку при сохранении. Если в него прочитать данные в 1251, то он и перезапишет потом в файл данные в той же кодировке.

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

2й пример кода, вариант "компонентный"

Прекрасно работает вот в таком виде:

Pascal

var
  List: TStringList;
  St: string;
begin
  st := 'тест'; // это в UTF8
  List := TStringList.Create;
  List.LoadFromFile('2.txt');
  // можешь и с Utf8ToAnsi попробовать, если у тебя системная кодировка совпадает с кодировкой файла.
  // У меня - не совпадает, поэтому приходится указывать явно.
  List.Add(UTF8ToCP1251(st)); // uses LConvEncoding
  List.SaveToFile('2.txt');
  List.Free;
end;

@Grom13 · 02.04.2016, 15:16 **[ТС]**

volvo, странно, но данный вариант рассматривался.
Раскомментировал, указанный тобой код, скомпилировал, и все работает... я

.
как узнать, Utf8ToAnsi или UTF8ToCP1251 необходимо использовать?(пока по плану использовать на xp/7/8) у меня так же сработала функция UTF8ToCP1251.

@volvo · 02.04.2016, 15:27

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

как узнать, Utf8ToAnsi или UTF8ToCP1251 необходимо использовать?

Если есть уверенность, что кодировка файла совпадает с кодировкой Non-unicode приложений (с той, что выставлена в Control Panel -> Region and Language -> Administrative), то имеет смысл использовать Utf8ToAnsi. Иначе нужно конвертировать текст из UTF8 в конкретную кодировку при помощи функций UTF8ToCP<...> модуля LConvEncoding.

@Grom13 · 02.04.2016, 15:41 **[ТС]**

volvo, Спасибо, вопрос исчерпан. Последнее сообщение дало пищу для раздумий.

@Grom13 0 / 0 / 0 Регистрация: 28.08.2014 Сообщений: 16
	02.04.2016, 15:16 [ТС]	3
	volvo, странно, но данный вариант рассматривался. Раскомментировал, указанный тобой код, скомпилировал, и все работает... я . как узнать, Utf8ToAnsi или UTF8ToCP1251 необходимо использовать?(пока по плану использовать на xp/7/8) у меня так же сработала функция UTF8ToCP1251. 0

@volvo Супер-модератор 32762 / 21107 / 8139 Регистрация: 22.10.2011 Сообщений: 36,362 Записей в блоге: 8
	02.04.2016, 15:27	4
	Сообщение от Grom13 как узнать, Utf8ToAnsi или UTF8ToCP1251 необходимо использовать? Если есть уверенность, что кодировка файла совпадает с кодировкой Non-unicode приложений (с той, что выставлена в Control Panel -> Region and Language -> Administrative), то имеет смысл использовать Utf8ToAnsi. Иначе нужно конвертировать текст из UTF8 в конкретную кодировку при помощи функций UTF8ToCP<...> модуля LConvEncoding. 0

@Grom13 0 / 0 / 0 Регистрация: 28.08.2014 Сообщений: 16
	02.04.2016, 15:41 [ТС]	5
	volvo, Спасибо, вопрос исчерпан. Последнее сообщение дало пищу для раздумий. 0

Опции темы

Файл в кодировке ANSI

Решение