if lenght(trim(adoquery1.Fieldbyname('对手一').AsString))=0 then begin edit1.Text:=adoquery1.Fields[0].AsString; if adoquery1.Fields[1].AsBoolean=true then edit2.text:='先' else edit2.Text:='后'; end else showmessage('此人的对手已经录入!');
if length(trim(adoquery1.Fieldbyname('对手一').AsString))>=1 then showmessage('此人的对手已经录入!') else begin edit1.Text:=adoquery1.Fields[0].AsString; if adoquery1.Fields[1].AsBoolean=true then edit2.text:='先' else edit2.Text:='后'; end 也许更好
begin
edit1.Text:=adoquery1.Fields[0].AsString;
if adoquery1.Fields[1].AsBoolean=true then
edit2.text:='先'
else
edit2.Text:='后';
end
else
showmessage('此人的对手已经录入!');
showmessage('此人的对手已经录入!')
else
begin
edit1.Text:=adoquery1.Fields[0].AsString;
if adoquery1.Fields[1].AsBoolean=true then
edit2.text:='先'
else
edit2.Text:='后';
end
也许更好
仔细测试下adoquery1.Fieldbyname('对手一').AsString到底有没有再说