Código Delphi [-] procedure MiProcedure; begin { 1. envio un comando } while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo} { 2. recibo respuesta } { 3. envio otro comando } while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo} { 4. recibo respuesta, etc, etc... } end;
procedure MiProcedure; begin { 1. envio un comando } while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo} { 2. recibo respuesta } { 3. envio otro comando } while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo} { 4. recibo respuesta, etc, etc... } end;