На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> TStringList и OEM-866
    Добрый день. Столкнулся с проблемой разбивки строки по разделителю, используя TStringList.
    У меня есть файл с текстом в кодировке OEM-866.
    В ней же я гружу текст:
    ExpandedWrap disabled
      list1.LoadFromFile(FileFolder + fileName1, TEncoding.GetEncoding('866'));

    В отладчике текст отображается корректно.
    Затем создаю еще 1 TStringList, пишу
    ExpandedWrap disabled
      list.DelimitedText := list1[0];
      list.Delimiter := '╫'; // Такой разделитель

    В итоге list.Count = 1, хотя в строке у меня разделителей несколько штук.
    В чем проблема может быть? Может в том, что код разделителя в кодировке OEM-866 = 215, а в UTF-8 (модуль в такой кодировке) = 9579?
    Тогда как правильно указать значение св-ва list.Delimiter?
      m9yt
      Ты посмотри через ord какой там номер у твоего разделителя и через chr задай такой номер в Delimiter
        Короче, хз почему так, но вначале инициализировав Delimiter, а уже потом DelimitedText, все заработало!
          Естественно, при работе DelimitedText должен уже быть задан разделитель.
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0200 ]   [ 16 queries used ]   [ Generated: 23.04.24, 07:04 GMT ]