Delphi Изменить Кодировку

В Delphi изменить кодировку можно с помощью методов класса TEncoding. Для этого вам нужно задать необходимую кодировку в качестве параметра при создании объекта TEncoding.

Вот пример кода, который изменяет кодировку файла на UTF-8:

var  OldText, NewText: String;  OldEncoding, NewEncoding: TEncoding;begin  OldEncoding := TEncoding.Default; // текущая кодировка  NewEncoding := TEncoding.UTF8; // новая кодировка  OldText := LoadFromFile('input.txt', OldEncoding);  NewText := OldEncoding.GetString(NewEncoding.GetBytes(OldText));  SaveToFile('output.txt', NewText, NewEncoding);end;

В этом примере мы сначала загружаем содержимое файла input.txt используя текущую кодировку. Затем мы преобразуем строку в новую кодировку и сохраняем результат в файл output.txt. В данном случае мы использовали кодировку UTF-8.

Вы можете также использовать методы TEncoding.GetBytes и TEncoding.GetString для преобразования строк между различными кодировками:

var  S: String;  AnsiS, Utf8S: TBytes;  AnsiEncoding, Utf8Encoding: TEncoding;begin  AnsiEncoding := TEncoding.ANSI;  Utf8Encoding := TEncoding.UTF8;  S := 'Привет, мир!';  AnsiS := AnsiEncoding.GetBytes(S);  Utf8S := AnsiEncoding.Convert(Utf8Encoding, AnsiS);  ShowMessage(Utf8Encoding.GetString(Utf8S));end;

Этот пример преобразует строку S из кодировки ANSI в кодировку UTF-8, используя метод TEncoding.Convert.