Prime Number Checker in Delphi

A program that I wrote using Delphi to accept a number from the user and then our program will check and determine if the given number is a Prime Number or Not.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

 
My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

unit prime;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label3: TLabel;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

function ISPrime(const vlNumber: Integer): Boolean;

var

X: Integer;

vlPrime: Boolean;

begin

X := 2;

vlPrime := True;

While (X < vlNumber) and vlPrime do begin

vlPrime := ((vlNumber mod X) <> 0);

Inc(X);

end;

ISPrime := vlPrime;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

      if edit1.text ='' then

      begin

     ShowMessage('Emtpy not allow');

        Edit1.text :='';

        Label3.Caption := '';

        Edit1.SetFocus;

   end

       else if    ISPrime( strtoint(Edit1.Text))  then

     Begin

           Label3.Caption:= 'The number  ' + Edit1.Text

      + ' is a Prime Number'+'.'

      end

      else

      

           Label3.Caption:= 'The number  ' + Edit1.Text

      + ' is Not a Prime Number'+'.'

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.text :='';

  Label3.Caption := '';

  Edit1.SetFocus;

end;

end.