[DELPHI] Funzione InRange

[greatciccio]

Finalmente una risposta... perchè continuo a , non riesco a trovare nulla su internet che mi spiega bene il funzionamento...

... spero di riuscire a risolvere il problema...

function TFMain.InRange(const AValue, AMin, AMax: Integer): Boolean;
var
  Valore, Min, Max : Integer;
begin
  Valore:= 150;
  Min:= 100;
  Max:= 500;
  if Result = True then
    ShowMessage('.:OK:.')
  else
    ShowMessage('.:NO:.');
end;

procedure TFMain.Button1Click(Sender: TObject);
begin
  InRange(150,100,500);
end;

end.