判断图片是否重名问题

Question

我看的例子是用BDE做的,它判断图片重名是用的语句是
if findkey([extractfilename(edit1.text)])=false then   //如果没有相同名字的图片
........
但是我想用ADO做的图片保存,应该怎么写判断语句呢?
请各位大虾赐教!

Answer 1

做个循环就可以了
 while not AQ_image1.Eof do
          begin
            picname:=trim(AQ_image1.FieldByName('image_name').AsString);
            if picname=extractfilename(Edit_Name.Text) then
            begin
            break;
            end
            else
             AQ_image1.Next;
          end;
          if not AQ_image1.Eof then
           begin
           showmessage('该图片已经存在');
           exit;
           end