Hallo, guten Tag.
NullLetter = #0; EscapeKey = #27;
Warum schreibt man nicht einfach 0 und 27 ?
Danke.
Hallo, guten Tag.
NullLetter = #0; EscapeKey = #27;
Warum schreibt man nicht einfach 0 und 27 ?
Danke.
In welchem Zusammenhang?
Ich Rate mal: Das # definiert die Zahl als Character (8 bit), statt als Integer (16/32 bit)? Zumindest ist es das, was du da haben willst.
Mit dem Seriell-Programm :
program SimpleTerminal;
uses
Crt;
const
THR = 0;
RBR = 0;
LCR = 3;
LSR = 5;
Latch_Low = $00;
Latch_High = $01;
NullLetter = #0;
EscapeKey = #27;
var
ComPort: array [1..4] of Word absolute $0040:$0000;
InputLetter: Char;
OutputLetter: Char;
begin
Writeln('Simple Serial Data Terminal Program. Press "Esc" to quit.');
Port[ComPort[1] + LCR] := $80;
Port[ComPort[1] + Latch_High] := $00;
Port[ComPort[1] + Latch_Low] := $0C;
Port[ComPort[1] + LCR] := $03;
OutputLetter := NullLetter;
repeat
if (Port[ComPort[1] + LSR] and $01) > 0 then begin
InputLetter := Chr(Port[ComPort[1] + RBR]);
Write(InputLetter);
end;
if KeyPressed then begin
OutputLetter := ReadKey;
Port[ComPort[1] + THR] := Ord(OutputLetter);
end;
until OutputLetter = EscapeKey;
end.
Alles anzeigen
Gruss
Was ich gesehen habe ist auch "basis#passendes_zahlenformat" möglich... aber ich weiss nicht ob das alte Pascal das auch so handhabt und nicht, wie bereits erwähnt, es als "Typenprefix" nutzt oder als Formatzeichen in einem String.
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!