procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.CheckAB(N1,N2: array of integer;var nA,nB: integer);
var i, j: integer;
begin
for j:= 0 to cDim-1 do begin
for i:= 0 to cDim-1 do begin
if N1[j]=N2[i] then
if i=j then nA:= nA 1
else nB:= nB 1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j, xNo, numA, numB: integer;
xNum1, xNum2: array [0..cDim-1] of integer;
begin
xNo:= StrToInt(Edit1.text);
for i:= 0 to cDim-1 do begin
xNum1[i]:= xNo mod 10;
xNo:= xNo div 10;
end;
xNo:= StrToInt(Edit2.text);
for i:= 0 to cDim-1 do begin
xNum2[i]:= xNo mod 10;
xNo:= xNo div 10;
end;
numA:= 0; numB:= 0;
CheckAB(xNum1, xNum2, numA, numB);
Label1.Caption:= '有' IntToStr(numA) ' A, ' IntToStr(numB) ' B ';
end;
procedure TForm1.Button3Click(Sender: TObject);
var i, num: integer;
xStr: string;
begin
for num:= 9 downto 0 do begin
xStr:= IntToStr(num);
ListBox1.Items.Add(xStr);
end;
ListBox1.Items.Delete(9);
ListBox1.Items.Delete(8);
Label1.Caption:= ListBox1.Items[0];
end;
procedure TForm1.Button4Click(Sender: TObject);
var i, xNo, xResult: integer;
begin
randomize; xResult:= 0;
while (xResult=0) do begin
xNo:= random(9999);
CheckNum(xNo, xResult);<<<<<<這邊有錯~為什麼ㄋ
end;
Label1.Caption:= IntToStr(xNo);
end;

------
押呼~~~

procedure TForm1.Button4Click(Sender: TObject);
var i, xNo, xResult: integer;
begin
randomize;
xResult:= 0;
while (xResult=0) do
begin
xNo:= random(9999);
CheckNum(xNo, xResult); <<<<<< 程序原型在哪裡？這樣怎麼知道你的錯誤是呼叫一個不存在的函數或者是參數型態錯誤？
end;
Label1.Caption:= IntToStr(xNo);
end;

這時就要他去看，提問的智慧
長一下智慧

===================引 用 Stallion 文 章===================
procedure TForm1.Button4Click(Sender: TObject);
var i, xNo, xResult: integer;
begin
randomize;
xResult:= 0;
while (xResult=0) do
begin
xNo:= random(9999);
CheckNum(xNo, xResult); <<<<<< 程序原型在哪裡？這樣怎麼知道你的錯誤是呼叫一個不存在的函數或者是參數型態錯誤？
end;
Label1.Caption:= IntToStr(xNo);
end;

麻煩ㄧ下....上面CheckAB....下面寫CheckNum會通嗎?

那你覺得他們的參數型態一致嗎？可以相容嗎？這可是基本的功課吧！
===================引 用 SmallBare 文 章===================
麻煩ㄧ下....上面CheckAB....下面寫CheckNum會通嗎?