![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Марат |
|
|||
|
Unregistered |
Здрасте!!!
я еще на бейсике писал Пишущюю машинку, а как н аДельфе написать не пойму!!! он или полностью строку печатает при WriteLn, или ждет при Write а как печатать по символьно, нажал клавишу а он и печатает |
|||
|
||||
| Марат |
|
|||
|
Unregistered |
Я это сделал!!!!!
если кому надо пользуйтесь Вводите в едите а она в досовом режиме на принтере печатает кайф procedure TForm1.Edit1Change(Sender: TObject); var P: TextFile; begin AssignFile(P,'PRN'); Rewrite(P); Write(P,edit1.text+#13); CloseFile(P); end; |
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Используй Write и сбрасывай буффер:
procedure Flush(var t: Text); -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |