На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Буквы национального алфавита , TMemo.Lines.LoadFromFile искажает буквы национального алфавита.
    Здравствуйте.
    При открытии файла который наряду англиских букв содержит буквы национального алфавита с помощью TMemo.Lines.LoadFromFile, национальные буквы заменяются на нечто такое:
    რომ კოდი შეგყავáƒ

    Пишу на Delphi 10.4 Sydney под Windows 10
      Попробуй так:
      ExpandedWrap disabled
        var
          e:TEncoding;
        begin
          e:=TEncoding.Unicode;
          memo1.Lines.LoadFromFile ('c:\1.txt',e);
        end;
        Спасибо, помог TEncoding.UTF8

        Добавлено
        Однако при попытке загрузить очередной файл, получил следующее сообщение об ошибке

        No mapping for the Unicode character exists in the target multi-byte code page.
          Попался какой-то символ, которого нет в наборе символов на твоем ПК. Или файл поврежден или имеет другую кодировку(скорее всего)
            Происодит странная вещь.
            Если файл открыть в Notepad, указывая кодировку Auto-Detect, файл открывается без ошибок и искажения национальных букв. Если потом его сохранить под другим именем, то при открытии этого файла в Delphi, ошибка уже не возникает.
            Получается Notepad умеет обойти (или исправить?) ошибку. Нельзя такое же сделать в Delphi?
            Файлы генерируются автоматически и с большой частотой. Обработать их предварительно в ручную - невозможно!
              Цитата gog2906 @
              Нельзя такое же сделать в Delphi?

              Выложи проблемный файл сюда, я проверю как сделать лучше, иначе беспредметный разговор получается.
                Я постараюсь выложить файл в ближайщие дни.
                  >Получается Notepad умеет обойти (или исправить?) ошибку.
                  Наверное, он просто пишет правильный BOM-заголовок
                    Обрабатываемые файлы генерируются телефонной станцией и содержат персональную информацию.
                    Пришлось перестроить систему чтобы её удалить из файлов.
                    Полученные файлы примерно 11.5 Мб и система на разрешает приатачить их, говоря что неразрешенный размер для данной группы.
                    Уменьшение размера файлов связано с большими трудностями.
                    Нельзя разрешить выложить файл такого размера?
                      Хочу выложить файл но вроде не получактся.
                      Уменьшил размер до 664 Кб, но всё равно говорит:
                      "Превышен максимальный размер файла, разрешенный для Вашей группы."
                      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                      0 пользователей:


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