Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2007, 07:01   #1
Dunpeal
Пользователь
 
Регистрация: 16.11.2006
Сообщений: 28
По умолчанию Текст в формате Terminal

Приветствую. Тут одна проблема... Есть файл, который формируется похоже Галактикой, в нём текст в формате Terminal. Любой скопированный из него текст превращается в буфере в нечто подобное:
яЃ ђҐҐбва 宧п©б⢥**ле ®ЇҐа*жЁ©
Вся работа будет происходить в памяти поэтому необходимо как-то объяснить Delphi чтобы она правильно распознавала кириллицу...
Код:
var f:textfile;
    buff:string;
begin
  if FileExists(LabeledEdit1.Text)=True then
    begin
      AssignFile(f,LabeledEdit1.Text);
      Reset(f);
      while not EOF(f) do
      begin
        Readln(f,buff);
        Memo2.Lines.Add(buff);
      end;
      CloseFile(f);
    end;

Последний раз редактировалось Dunpeal; 19.12.2007 в 07:04.
Dunpeal вне форума Ответить с цитированием
Старый 19.12.2007, 08:17   #2
Dunpeal
Пользователь
 
Регистрация: 16.11.2006
Сообщений: 28
По умолчанию

Нашёл решение. Если кому интересно, то делается это перекодированием из OEM/DOS в ANSI. Исходник тут: на нашем форуме достаточно информации по описанной теме

Последний раз редактировалось Квэнди; 19.12.2007 в 12:28.
Dunpeal вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
php в формате doc gred PHP 9 16.05.2008 14:39
Запись в БД в формате Date Cantana Помощь студентам 16 24.01.2008 11:30
Текст в формате RTF Mikola Помощь студентам 2 10.08.2007 10:28