TSpinEdit的值判斷問題

Question

我有幾個TSpinEdit控件在一個FORM裡面,現在想要一個簡潔的代碼結構來判斷,其中是否有相同的值,
請各位幫忙指點一下思路,謝謝了.

Answer 1

以下代码遍历form上的控件，得到TspinEdit控件的值。得到值之后判断有没有相等的就简单了吧。
var
i:integer;
myspinedit: TSpinEdit;
begin
for i:=0 to form1.ControlCount-1  do
begin
if form1.Controls[i] is TSpinEdit then
begin
  myspinedit := TSpinEdit(form1.Controls[i]);
  showmessage(inttostr(myspinedit.Value));
end;
end;

Answer 2

已經自己寫一個FUNCTIONfunction TReelIDPrintFrm.uCheckExcelColumn(
  Aarray: array of integer): boolean;
var
  i, j, intTemp, intTemp1: integer;
begin
  Result := True;
  for i := 0 to length(Aarray) - 1 do
  begin
    intTemp := Aarray[i];
    for j := i + 1 to length(Aarray) - 1 do
    begin
      intTemp1 := Aarray[j];
      if intTemp = intTemp1 then
      begin
        Result := False;
        Exit;
      end;
    end;
  end;
end;