1

Сделала небольшую программу для замены слов. На форме находится компонент Memo1 и кнопка.

То есть, если к примеру, текст в Memo вот такого плана в стандартной кодировке:

Слово1=замена
Слово2=замена
Слово3=замена

То замена слов не идет.

А если перевожу этот же текст в кодировку ANSI то есть вот так:

Слово1=Замена
Слово1=Замена
Слово1=Замена

То программа отлично работает.

Как заставить Memo1 автоматически определять кодировку?

Пробовала прописывать в коде Memo:

Memo1.Text := utf8ToAnsi(Memo1.Text);

Но понимаю что увы, но это далеко не то..

Замену делаю вот так:

s := StringReplace(s, frm_Main.ReplaceList[j][0], frm_Main.ReplaceList[j], indexR, [rfReplaceAll, rfIgnoreCase]);
4
  • 1
    а как вы замену-то делаете?
    – teran
    20 сен 2018 в 12:23
  • @teran, Делаю через функцию. Обновила вопрос, посмотрите пожалуйста. 20 сен 2018 в 12:31
  • Замена ведется в файлах? или в тексте который на форме? стандартная для Delphi XE кодировка Unicode(который из них не помню, но точно не UTF8) 20 сен 2018 в 12:39
  • @Владимир Клыков, да замена ведется в текстовом файле. 20 сен 2018 в 12:41

1 ответ 1

2
Var
  FileIn: TStringList;
begin
  // Если память выделить не удастся, то будет исключение
  FileIn := TStringList.Create;
  Try
    //Тут могут быть исключения, например файл отсутствует
    FileIn.LoadFromFile('FileName', TEncoding.FANSIEncoding);//<< Выбираете верную кодировку файла

    FileIn.Text := StringReplace(FileIn.Text, frm_Main.ReplaceList[j][0], frm_Main.ReplaceList[j], indexR, [rfReplaceAll, rfIgnoreCase]);

    FileIn.SaveToFile('FileName', TEncoding.FANSIEncoding);//<< Выбираете НУЖНУЮ кодировку файла
  Finally
    FileIn.Free; //Святое, чистим память, за нас ее в делфи никто не почистит
  end;
end;

В результате будет замена в "родной" для Delphi кодировке, с возможностью сохранить в файл с нужной вам кодировкой

7
  • Комментарии не предназначены для расширенной дискуссии; разговор перемещён в чат.
    – ЮрийСПб
    20 сен 2018 в 14:35
  • Проверку на nil перед вызовом Free делать не надо. Она уже содержится внутри функции Free.
    – Kromster
    21 сен 2018 в 5:40
  • @Kromster Да чтож вы про эту проверку =) посмотрите чат =) там указано зачем проверка, она не нужна если код создания находится вне блока Try, собственно всё объяснение к коду теперь болтается в чате =) 21 сен 2018 в 5:45
  • Повторюсь, проверка не нужна в любом случае, т.к. она содержится внутри метода Free. procedure TObject.Free; begin {$IFNDEF AUTOREFCOUNT} if Self <> nil then Destroy; {$ENDIF} end;
    – Kromster
    21 сен 2018 в 5:51
  • Был не прав, уточню. Также не нужно делать присвоение nil и не нужно вызывать конструктор внутри try..finally, т.к. конструктор либо сработает и переменной будет присвоен объект, либо свалится и исключение не даст нам добраться до кода в finally
    – Kromster
    21 сен 2018 в 5:56

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.