一个if语句

[dayangyang]

我想如果没有这个分类号，就报错怎么写啊 先谢了!!
begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end


application.MessageBox('没有这个分类号','错误',mb_ok);

end;

[CoolAbu]

先做判断有没有这个分类号，不行吗？？

[ToUpdate]

UP

[dayangyang]

to CoolAbu
我写错了，我不知道变量i放在哪，不会写,你会怎么写呢？
var:
i:string;
begin
with dataform.StoredProc1 do
if (parambyname('@分类号').Value:=trim(edit1.Text))=true then
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end


else
application.MessageBox('没有这个分类号','错误',mb_ok);

end;

[dayangyang]

up

[dayangyang]

请高手帮忙!!!!!!

[CoolAbu]

FT，这是啥？Delphi，我也不会。

[dayangyang]

up

[pengdali]

begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end

if dataform.StoredProc1.RecordCount=0 then
showmessage('没有这个分类号');

end;

[lxinjun]

你的数据原用的是什么!(这应该是delphi问题)