Class TForm1 (unit RndUnit)

Inherits from

TForm

Constructors



Functions

procedure btnExitClick(Sender: TObject);


procedure btnStartClick(Sender: TObject);


function RndString(Len: Integer):String;


Properties

Events

Variables

btnExit : TButton;


btnStart : TButton;


edtNumberOfItems : TEdit;


lblNumberOf : TLabel;


SaveDialog1 : TSaveDialog;



Constructors


Functions


procedure btnExitClick(Sender: TObject);


procedure btnStartClick(Sender: TObject);


function RndString(Len: Integer):String;


Properties


Events


Variables


btnExit : TButton;


btnStart : TButton;


edtNumberOfItems : TEdit;


lblNumberOf : TLabel;


SaveDialog1 : TSaveDialog;