Forum.iFiction.Ru

Nash · 24.06.2003 13:31

Здравствуйте!
Тут вот возникли два вопроса, связанные с программированием на Делфи.
Особенно волнует второй, хотя подозреваю, что это только моя проблема.

1. Как реализовать следующий алгоритм:
вывод строки
останов вывода до нажатия на любую клавишу
вывод очередной строки

В Паскале под ДОС такое можно было реализовать так:

writeln('');
repeat
until keypress;
writeln('');

Как это сделать в Делфи?

2. Событие onkeydown вызывает звук ошибки Windows (или как его там? короче, ding.wav). Если отключить звуковые схемы, начинает трещать спикер.
А ведь на Enter приходится жать очччень часто. Раздражает ужасно. :x

Olegus t.Gl. · 24.03.2006 19:18

Конвертировать текст в кодировку 866: CharToOem(StrFrom,StrTo: PChar):Bool;

Код:

function WinToDos (S:string): PChar;
var R: PChar;
begin
  R:=StrNew(PChar(S));
  CharToOem(PChar(S),R);
  WinToDos:=R;
end;

Forum.iFiction.Ru

0 0 #1
24.06.2003 13:31

Знатоки Делфи, помогите!

0 0 #2
24.03.2006 19:18

Re: Знатоки Делфи, помогите!

Код:

Forum.iFiction.Ru

0 0 #1 24.06.2003 13:31

Знатоки Делфи, помогите!

0 0 #2 24.03.2006 19:18

Re: Знатоки Делфи, помогите!

Код:

0 0 #1
24.06.2003 13:31

0 0 #2
24.03.2006 19:18