Форум: "Прочее";
Текущий архив: 2009.08.16;
Скачать: [xml.tar.bz2];
ВнизЕсть пример программы на 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-последовательности при печати :)
← →
Псалтырь © (2009-06-18 23:31) [5]
> Игорь Шевченко © (18.06.09 21:04) [2]
только assign? открывать не нужно?
← →
Игорь Шевченко © (2009-06-18 23:44) [6]
> только assign? открывать не нужно?
Ну забыл, бывает :)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.08.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c