[[eduarcol]]

Empezado por atapia

Creo q lo q esta mal es poner asi la funcion no?Ojala alguien me pueda explicar .Gracias

Menos mal que ya sabes donde esta el error, alli solo debes es llamar a la funcion que debe estar dentro del cuerpo de implementation pero fuera de los procedures

Código Delphi [-]
 
procedure TfrmEtiquetas.AbrirpuertoClick(Sender: TObject);
begin
    if OHAUS.Checked then
    begin
      showmessage('Código para OHAUS');
      VariableBoolean := LeePeso;  
    end;
end;

Function TfrmEtiquetas.LeePeso(var peso: double) : boolean;
var
        buff : string;
        intentos : integer;
        lectura_correcta : boolean;
begin
        buff := 'P'+chr(13)+chr(10);
        PesoPort.WriteText(buff);
        //Una espera inicial de .3 segundos
        sleep(300);
        intentos := 0;
        etc etc etc...
end;

Espero te sirva