Есть пример программы на Q-basic. Как перевести в Delphi?

← →
pavel_guzhanov © (2009-06-18 20:44) [0]

В мануале к принтеру есть такой вот пример на QBasic:

LPRINT "AAAAA";CHR$(&HA); LPRINT CHR$(&H1B);"3";CHR$(0); LPRINT "AAAAA"; CHR$(&HA);
Выводит на печать строку "AAAAA" и выставляет междустрочный интервал.

LPRINT - выводит на печать в LPT1
CHR$ - возвращает символ, соответствующий указанному коду ASCII

Для вывода на печать в порт делаю так:

var f:TextFile; a1:array[0..31] of char; a2:array[0..31] of char; begih AssignFile(f, "LPT1"); ... writeln(f,a1); writeln(f,a2); end;

А как вывести в LPT1 то, что показано в примере на QBasic?

← →
palva © (2009-06-18 20:59) [1]

> CHR$(&H1B)

это символ с кодом 1B. Ну то есть на делфи можно так, наверно, char($1b)

← →
Игорь Шевченко © (2009-06-18 21:04) [2]

> А как вывести в LPT1 то, что показано в примере на QBasic?

> LPRINT "AAAAA";CHR$(&HA);
> LPRINT CHR$(&H1B);"3";CHR$(0);
> LPRINT "AAAAA"; CHR$(&HA);

var
F: TextFile;
begin
AssignFile(F,"LPT1");
write(F,"AAAAA"#10);
write(F,#27"3"#0);
write(F,"AAAAA"#10);
CloseFile(F);
end;

← →
pavel_guzhanov © (2009-06-18 21:12) [3]

Спасибо!

← →
Влад (2009-06-18 21:12) [4]

Как быстро люди забыли - что такое Esc-последовательности при печати :)

> только assign? открывать не нужно?

Ну забыл, бывает :)

Есть пример программы на Q-basic. Как перевести в Delphi? Найти похожие ветки