delphi循环校验数据集

function XXXXXFrom.CheckData(Sender: TObject): Boolean;
var
  tmpcds:TfwClientDataset;
begin
  Result:=False;
  tmpcds:=TfwClientDataset.Create(nil);
  try
    tmpcds.CopyFromDataSet(fcdsImport);
    tmpcds.First;
    while not tmpcds.Eof do
    begin
      if Trim(tmpcds.FieldByName('LICENSE').AsString)='' then
          begin
            TbsUtilFunc.ShowMsg('XXX不能为空，请重新填写导入!');
            exit;
          end;
          if Trim(tmpcds.FieldByName('REPORT_MAN').AsString)='' then
          begin
            TbsUtilFunc.ShowMsg('XXX不能为空，请重新填写导入!');
            exit;
          end;
          if Trim(tmpcds.FieldByName('RECORD_MAN').AsString)='' then
          begin
            TbsUtilFunc.ShowMsg('XXX不能为空，请重新填写导入!');
            exit;
          end;

      tmpcds.Next;
    end;
  finally
    FreeAndNil(tmpcds);
  end;
  Result:=True;
end;
---------------------
作者：无名小卒菜
来源：CSDN
原文：https://blog.csdn.net/weixin_39428938/article/details/89947487
版权声明：本文为博主原创文章，转载请附上博文链接！