| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Событие на выход из процедуры, Как его сделать? Как бы сделать zip не zip'ом, чтобы архиватор не догадался Вывод JPEG из ресурса, Вывод JPEG из ресурса DBGrid, Скроллинг не работает состояние лотка cd-rom Убить приложение У меня к вам ышо вопросик есть ебаут Creating Проблемы с Query и DataSource Кодировки TMemo и XPManifest, Проблема с DOS кодировкой в Memo Файлы руссификации к ExpressQuantumGrid, ExpressMasterView, ExpressBars точный прицел принтера Как правильно реализовать многострочность в ячейке, Как правильно реализовать многострочност средства делфи для создания help'a LPT порт, Вопрос WMI на Delphi Message with Tedit, Message with Tedit TClientServer, TServerClient ComboBox, не исчезающий выпадающий список TChart Подмена ресурсов, UpdateResource для всех версий Windows Как сменить рабочий каталог Delphi7 Как анализировать отловленный exception?, Есть ли у Exception цифровые коды? OLE+WORD DelphiX, OnCollision для анимированных спрайтов, Срабатывает только на первом изображении writecomponent Модальное окно, Оказывается на заднем плане Как Вы относитесь к курящим девушкам? Priveleged Instruction, Не получается в WinXP exe, найти OER Ресурсы GDI, не освобождаюцца ресурсы защищенные страницы памяти winXP Изменение иконки в SystemTray? Запуск программы от имени другово пользователя, RunAs в Win XP Регистрация записи, В RemObjects Pascal Script ProgressBar1, как с ним работать Тормоза, Тормоза при компиляции программы. Писк в строке, НЕобходимо найти параметр в строке TMemo, Сколько строк? Обмануть Delphi, for to do Связка проги и хелпа с помощью контекстных ссылок, при показе pop-up вылетает содержание Compact Rus Popup как в Windows --> Пуск, помогите Сколько занимает папка? Следующая строка, Следующая строкачерез промежуток времяни файл, Не могу дописать файл как включить компьютер програмным способом Изменить имя компа, Изменить имя компа Обучение програмированию, Со скольки лет начинать значение до знака, надо взять пораметры до определённого зн изменение стиля WebBrowser1, где ощибка??? А что у меня TAB-Contol не работають? Переход на следующую строку в TMemo?, КАК? Работа со звуком Update Tray Компилятор, исходник... Градиентная заливка TPanel?, Как залить??? 1.fsStayOnTop и 2.TPanel не полное значение, Мемо выдает не полное значение Как извлечь дочернюю форму из Dll?, Как извлечь дочернюю форму из Dll? Синтаксис, как сохранить Скопировать файл., Чёт я затупил. Вопрос по ShellListView, Теперь уже заключительный... как узнать откуда запушен процесс Помогите сделать правильно., Бьюсь над задачей..... Извлечь часть строки, Подскажите функцию... Сравнение ADA – Delphi – Pascal, нужна литература Скопировать Html-файл, Вместе со всеми картинками, стилями и др Delphi 7 - отличия и трудности Своя коллекция компонет Не компилируется проект! Нелп!!!, ошибка в файле Buttons.res |
Платные хостинги Раскрутка сайта Книги по программированию Кодировки TMemo и XPManifest, Проблема с DOS кодировкой в Memo
- Может функция такая подойдет:Код // Конвертирование Win фомата в Dos форматfunction Ansi2OEM(const S : string) : string;begin SetLength(Result,Length(S)); if Length(S) <> 0 then CharToOem(pChar(S),pChar(Result));end; // end of Ansi2OEMhighlightSyntax('delpiNjRhMT','delpi'); Добавлено @ 12:36 Вообще, по кодировкам можно найти инфу тут:http://forum.vingrad.ru/index.php?showtopic=22229 - Код uses XPMan; //попробуйте раскомментировать эту строчку...function OEM2Ansi(const S : string) : string;// Конвертирует строку из кодировки DOS в Windows кодировкуbegin SetLength(Result,Length(S)); if Length(S) <> 0 then OemToChar(pChar(S),pChar(Result));end;procedure TForm1.Button3Click(Sender: TObject);begin if not OpenDialog1.Execute then Exit; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Memo1.Text:= OEM2Ansi(Memo1.Text);end;highlightSyntax('delphiNmQ1MD','delphi');И будет тебе счастье - Код uses XPMan; //попробуйте раскомментировать эту строчку...function OEM2Ansi(const S : string) : string;// Конвертирует строку из кодировки DOS в Windows кодировкуbegin SetLength(Result,Length(S)); if Length(S) <> 0 then OemToChar(pChar(S),pChar(Result));end;procedure TForm1.Button3Click(Sender: TObject);begin if not OpenDialog1.Execute then Exit; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Memo1.Text:= OEM2Ansi(Memo1.Text); Memo1.Font.Name:= 'Courier New';end;highlightSyntax('delphiTdmMDc','delphi');Нужно просто ставить шрифт, в котором ширина символов одинаковая - пример файла дай - Бестолковое занятие. Люсида и терминал всегда есть в системе.И вообще это стандартный способ просмотра дос текста в блокноте - сменить шрифт на терминал. А другого варианта просмотра псевдографики я не вижу.Кроме того хотел бы я посмотреть, как ты будешь запихивать шрифт терминал в свою программу :-) Для начала его придется найти... Можно правда попробовать найти шрифт где-нить в инете. Есть шрифты в дос кодировке. - Код procedure TForm1.Button1Click(Sender: TObject); function OemToWide(Src :AnsiString) :WideString; var n :Integer; begin SetLength(Result,Length(Src)); n := MultiByteToWideChar(CP_OEMCP, 0, PChar(Src), Length(Src), PWideChar(Result), Length(Result)); SetLength(Result,n); end;var w :WideString;begin with TStringList.Create do try LoadFromFile('e:\Temp\cp866.txt'); w:= OemToWide(Text); finally Free; end; SendMessageW(Memo1.handle,WM_SETTEXT, 0,Longint(@w[1]));end;highlightSyntax('delphiZhM2U3','delphi');Этому коду все равно, есть XPMan или его нету. Идея заключается в том, что файл переводится в юникод, а вот его уже memo просто обязано отобразить нормально.P.s. Идею предложил Петрович. - ты мне брось не работает, все там работает, ты под какими виндами сидишь?  |