各位大大，我想判斷checkbox是否多個選取
但是我只選了一個，message卻告訴我選了二個
想請問一下，是否我的判斷式寫錯了嗎，囧rz…謝謝
procedure Tfrmbase1.SBsaveClick(Sender: TObject);
var
i,state:integer;
begin
state := 0;
for i:= 1 to dbgrid1.DataSource.DataSet.RecordCount do
begin
if dbgrid1.Columns.items[0].Field.value='T' then
begin
state :=state 1 ;
end;
end;
if state = 0 then
begin
showmessage('贈品尚未選取，請選取');
exit;
end else
if state >= 2 then
begin
showmessage('只可選取一項贈品，請重新選取');
exit;
end else
if state = 1 then
begin
showmessage('OK');
end;
end;

附加檔案：4a25ef92a38df_未命名.JPG

[code delphi]
procedure Tfrmbase1.SBsaveClick(Sender: TObject);
var
i,state:integer;
begin
state := 0;
dbgrid1.DataSource.DataSet.First;
while not dbgrid1.DataSource.DataSet.eof do
begin
if dbgrid1.Columns.items[0].Field.value='T' then state :=state 1 ;
dbgrid1.DataSource.DataSet.Next;
end;
if state = 0 then
begin
showmessage('贈品尚未選取，請選取');
exit;
end else
if state >= 2 then
begin
showmessage('只可選取一項贈品，請重新選取');
exit;
end else
if state = 1 then
begin
showmessage('OK');
end;
end;
[/code]

編輯記錄

謝謝max0520大大的解答
原來是少了這一行…
dbgrid1.DataSource.DataSet.Next;