Реферат: Використання інтерфейсу Centronics для керування зовнішніми пристроями

procedure TForm1.Button1Click(Sender: TObject);

var

i:byte;

begin

for i:=0 to 255 do

begin

PortOut($378,i);

Sleep(200);

Application.ProcessMessages;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

b:byte;

begin

b:=PortIn($379);.Text:=IntToStr(b);

end;