Hola Compañeros del foro
Estoy realizando un proyecto de prueba para el puerto lpt1
el asunto es el siguiente.
Código Delphi
[-]
procedure TForm1.Button10Click(Sender: TObject);
var x,i,tiempo,numero:integer;
begin
tiempo := strtoint(edit3.Text); numero := strtoint(edit2.Text); for i := 0 to numero do
begin
Out32($378,i);
label2.Caption := inttostr(i); Sleep(tiempo); end;
end;
el asunto es que al utilizar sleep(tiempo) el programa no responde pero si hace su trabajo con el puerto osea envia los datos. necesito que el programa siga respondiendo por si deseo detener el contador o pausarlo. espero me den una manito con esto.