Delphi и кирилица

@xcv · Регистрация: 18.07.2011

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

Задача: Есть текстовый файл в кодировке utf-8 (в нем кириллица и латиница), надо открыть его в delphi, найти в нем определенный текст и заменить его другим текстом из edit, после чего сохранить результат в другом файле с той же кодировкой. Делаю это так:

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var
s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile(ExtractFilePath(Application.ExeName)+'\file1.txt');
s.Text:=StringReplace(s.Text,'pcn',edt1.Text,[rfReplaceAll]);
s.SaveToFile(ExtractFilePath(Application.ExeName)+'\file2.txt');
FreeAndNil(s);
end;

Вроде все работает, если в поле edit латиница, или цифры, но если в поле edit кириллица - то в итоговом файле вставляется билиберда (хотя находящийся там изначально кириллический текст остается в порядке).
Подскажите что делаю не так? и как исправить? заранее спасибо.

@D1973 · 23.04.2019, 18:01

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

но если в поле edit кириллица - то в итоговом файле вставляется билиберда

Пора завязывать с Delphi 7 - она не умеет работать с юникодом... В новых версиях Ваша проблема исчезнет сама собой... А если расстаться с динозавром судьба не позволяет - конвертируйте файл руками из юникода в 1251

@D1973 Модератор 9459 / 6212 / 2420 Регистрация: 21.01.2014 Сообщений: 26,487 Записей в блоге: 3
	23.04.2019, 18:01	2
	Сообщение от xcv но если в поле edit кириллица - то в итоговом файле вставляется билиберда Пора завязывать с Delphi 7 - она не умеет работать с юникодом... В новых версиях Ваша проблема исчезнет сама собой... А если расстаться с динозавром судьба не позволяет - конвертируйте файл руками из юникода в 1251 0