Алгоритм Грэхема / Source / RandomForm

unit RandomForm;

interface

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

type
TRandForm = class(TForm)
GroupBox1: TGroupBox;
TrackBar1: TTrackBar;
Label1: TLabel;
Label2: TLabel;
EditNumRND: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure TrackBar1Change(Sender: TObject);
procedure EditNumRNDChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
RandForm: TRandForm;

implementation

{$R *.dfm}

procedure TRandForm.TrackBar1Change(Sender: TObject);
begin
EditNumRND.Text := IntToStr(TrackBar1.Position);
end;

procedure TRandForm.EditNumRNDChange(Sender: TObject);
var i:Integer;
begin
i:=StrToInt(EditNumRND.Text);
if ((i>=0) and (i<=1000)) then TrackBar1.Position:=i;
end;

end.