pascal kerdes

[Info]

Szia !

> amit szeretnek:
> ami bejön karakter azt kiirom
> csak amikor hexa 0x4F jön, akkor egy soremelest beszurok a 0x4F utan

Tehát '4' és 'F' után beszúr egy 0x0D-t is plusszban ?

var
 Figyel: Boolean;
 ch:     Char;

........
Figyel := false;
while true do begin
  ch := ComReadChr();
  if Figyel and (ch = 'F') then WriteLn(ch) else Write(ch);
  Figyel := ch = '4';
end;