Calculate Min Max of integer

[nanix]

Hello how could i calculate this ... i was fooling around but still can't get it working here is what i got so far.
Basicly all values are the same MIN MAX VALUE

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm3 = class(TForm)

    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;


    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


 type
  TMyInt = record
    FValue: Integer;
    FMin: Integer;
    FMax: Integer;
    FInit: Boolean;
  private
    procedure SetValue(const IntValue: Integer);
  public
    procedure Init;

    property Value: Integer read FValue write SetValue;
    property Min: Integer read FMin;
    property Max: Integer read FMax;
    end;

var
  Form3: TForm3;







implementation
{$R *.dfm}

procedure TMyInt.Init;
begin
  FInit := False;
end;

procedure TMyInt.SetValue(const IntValue: Integer);
begin
  if FValue <> IntValue then
    FValue := IntValue;

  if not FInit then
  begin
    FMax := FValue;
    FMin := FValue;
    FInit := True;
  end
  else
  begin
    if FValue > FMax then
      FMax := FValue;
    if FValue < FMin then
      FMin := FValue;
  end;
end;

// usage


procedure TForm3.Timer1Timer(Sender: TObject);
var
  temp: TMyInt;
begin
  temp.Init;
  temp.Value:=Random(100);
  form3.Caption:='Value '+inttostr(Temp.Value)+' Min '+inttostr(temp.Min)+' Max '+inttostr(temp.Max);

end;

end.

[Mithrandir]

Shouldn't this be TRUE ?

Delphi-Quellcode:

procedure TMyInt.Init;
begin
  FInit := True;
end;

[nanix]

Well result is the same i believe :roll:
But is there a simplier way for this too much code IMHO..

[Mithrandir]

Zitat:

Zitat von nanix

Well result is the same i believe :roll:

We're not in church. Do you believe it or have you tried it?

[nanix]

Well maybe becouse the random number?

[Mithrandir]

Well, I see... You know the problem, why don't you fix that? Let me show you something:

Delphi-Quellcode:

unit Unit3;

interface

{...}

var
  Form3: TForm3;
  temp: TMyInt;

{...}

procedure TMyInt.Init;
begin
  FInit := True;
end;

{...}

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  temp.Init;
  temp.Value:=Random(100);
  form3.Caption:='Value '+inttostr(Temp.Value)+' Min '+inttostr(temp.Min)+' Max '+inttostr(temp.Max);
end;

end.

See the difference? ;)

[nanix]

Yes but is this why not work?

[Mithrandir]

Try it... Or what would you like to know? It's hard to understand your question...

[nanix]

Or is there a more newbie friendly solution to this more simple code?

[Blup]

Delphi-Quellcode:

type 
  TMyInt = record 
  private 
    FHasValue: Boolean; 
    FMax: Integer; 
    FMin: Integer; 
    FValue: Integer; 
    procedure SetValue(AValue: Integer); 
  public 
    procedure Clear;
    property HasValue: Boolean read FHasValue;
    property Max: Integer read FMax; 
    property Min: Integer read FMin; 
    property Value: Integer read FValue write SetValue; 
  end; 

type 
  TForm3 = class(TForm) 

    ButtonStart: TButton;
    ButtonStop: TButton;
    Timer1: TTimer;

    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject); 
  private 
    { Private declarations }
    FMyInit: TMyInt;
    procedure ShowMyInit;
  public 
    { Public declarations } 
  end; 

implementation 

{$R *.dfm} 

procedure TMyInt.Clear;
begin
  FHasValue := False;
  FMax      := 0;
  FMin      := 0;
  FValue    := 0;
end;

procedure TMyInt.SetValue(AValue: Integer); 
begin 
  if FHasValue then
  begin
    if FValue <> AValue then
    begin
      FValue := AValue;  

      if FMax < AValue then 
        FMax := AValue; 

      if FMin > AValue then 
        FMin := AValue; 
    end;
  end
  else
  begin    
    FHasValue := True; 
    FMax      := AValue; 
    FMin      := AValue; 
    FValue    := AValue;
  end;
end;

// usage 

procedure TForm3.ButtonStartClick(Sender: TObject);
begin
  FMyInt.Clear;
  ShowMyInit;
  Timer1.Enabled := True;
end;

procedure TForm3.ButtonStopClick(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm3.ShowMyInit;
begin
  if FMyInt.HasValue then
    Caption := Format('Value %d  Min %d  Max %d', [FMyInt.Value, FMyInt.Min, FMyInt.Max])
  else
    Caption := 'Value    Min    Max'
end;

procedure TForm3.Timer1Timer(Sender: TObject); 
begin 
  FMyInit.Value := Random(100);
  ShowMyInit; 
end;