這是一題猜數字的程式…猜幾A幾B的游戲， 
程式執行時電腦產生四位數的亂數讓人猜…
請問大大…我要修改用虛線部分所寫的程式…自己寫成用*圍成的程式…可是不行耶…那裡錯了？？
1.使用一Label元件用於輸出電腦所回應的AB數目
2.使用一Edit元件用於輸入使用者所猜測數字
程式碼如下：
var
i,j,r:integer;
flag:boolean;
begin
flag:=true;
Randomize;
-----------------------------------------------------------------
//for i:=0 to 9 do
//begin
//a[i]:=i;
//end;
//for i:=0 to 9 do
//begin
//r:=random(10);
//j:=a[i];
//a[i]:=a[r];
//a[r]:=j;
//end;
//form1.Caption:=Inttostr(a[0]) inttostr(a[1]) inttostr(a[2]) inttostr(a[3]);
//end;
-------------------------------------------------------------------------------------------------
*************************************************************
while flag do
begin
sum:=0;
for i:=0 to 3 do
begin r:=random(10);
a[i]:=r;
end;
fro i=0 to 3 do
begin
for j:=i 1 to 3 do
begin
if a[i] =a[j] then
sum:=sum 1;
end;
if sum=0 then
begin
flag=false;
end;
end;
******************************************************************
var
temp:string;
i,j:integer;
b:array[0..3] of integer;
an,bn:integer;
begin
if Edit1.text='' then
begin
showmessage('請輸入數字');
exit;
end;

for i:=0 to 3 do
begin
temp:=edit1.text;
b[i]:=strtoint(copy(temp,i 1,1));
end;
an:=0;
bn:=0;
for i:=0 to 3 do
begin
if a[i]=b[j] then
bn:=bn 1;
end;
if a[i]=b[i] then
an:=an 1;
end;
bn:=bn-an;
label1.caption:=inttostr(an) 'A' inttostr(bn) 'B';
if an=4 then
showmessage('恭喜您答對了');
end;

附加檔案：4555bd2e0b5af_E7-a.rar

我測了一下,BUG太多
虛線部分所寫的程式用意是0-9數值不重複
而你自己寫成用*圍成的程式用意不詳
flag sum 是捨

===================引 用 文 章===================

這是一題猜數字的程式…猜幾A幾B的游戲，
程式執行時電腦產生四位數的亂數讓人猜…
請問大大…我要修改用虛線部分所寫的程式…自己寫成用*圍成的程式…可是不行耶…那裡錯了？？
1.使用一Label元件用於輸出電腦所回應的AB數目
2.使用一Edit元件用於輸入使用者所猜測數字
程式碼如下：
var
i,j,r:integer;
flag:boolean;
begin
flag:=true;
Randomize;
-----------------------------------------------------------------
//for i:=0 to 9 do
//begin
//a[i]:=i;
//end;
//for i:=0 to 9 do
//begin
//r:=random(10);
//j:=a[i];
//a[i]:=a[r];
//a[r]:=j;
//end;
//form1.Caption:=Inttostr(a[0]) inttostr(a[1]) inttostr(a[2]) inttostr(a[3]);
//end;
-------------------------------------------------------------------------------------------------
*************************************************************
while flag do
begin
sum:=0;
for i:=0 to 3 do
begin r:=random(10);
a[i]:=r;
end;
fro i=0 to 3 do
begin
for j:=i 1 to 3 do
begin
if a[i] =a[j] then
sum:=sum 1;
end;
if sum=0 then
begin
flag=false;
end;
end;
******************************************************************
var
temp:string;
i,j:integer;
b:array[0..3] of integer;
an,bn:integer;
begin
if Edit1.text='' then
begin
showmessage('請輸入數字');
exit;
end;

for i:=0 to 3 do
begin
temp:=edit1.text;
b[i]:=strtoint(copy(temp,i 1,1));
end;
an:=0;
bn:=0;
for i:=0 to 3 do
begin
if a[i]=b[j] then
bn:=bn 1;
end;
if a[i]=b[i] then
an:=an 1;
end;
bn:=bn-an;
label1.caption:=inttostr(an) 'A' inttostr(bn) 'B';
if an=4 then
showmessage('恭喜您答對了');
end;

這個另寫出來的程式…是上課看了老師改寫的意思，小抄一下，自己又寫了一下…就…，那請問這一題有沒有別的方式寫法呢？？