procedure TForm1.Button9Click(Sender: TObject);
var xN:integer;
begin
xN:=StrToInt(edN4.Text);
if IsPrime(xN) then
edN4.Text:=edN4.Text ' ' 'is Prime '
else edN4.Text:=edN4.Text ' ' 'is not Prime ';
end;
function TForm1.IsPrime (xN:integer):Boolean;
var i:integer;
begin
IsPrime:=True;
for i:=2 to xN-1 do
if (xN mod i)=0 then
IsPrime:=False;
end;

有function只是簡短程式的長度而已嗎??還是有其他的好處啊??

function IsPrime (xN:integer):Boolean;
var
i:integer;
begin
IsPrime := True;
for i := 2 to Trunc(Sqrt(xN)) do
if (xN mod i)=0 then
begin
IsPrime := False;
Exit;
end;
end;

------
Fishman