try...except如何抛出异常

Question

    for i := 1 to query1.FieldCount do
    try
      AColumn := PBP_Grid_ColumnByField(dxGridMain, 'f'+inttostr(i));
      if AColumn.Visible then
        sqlstr := sqlstr + query1.FieldByName(AColumn.caption).AsString + ','
      else
        sqlstr := sqlstr + 'NULL,';
    except
      begin
        showmessage('Excel文件有误,导入失败。');
        exit;
      end;
    end;初学者，求各位大神解决一下，如何抛出异常？

Answer 1

for i := 1 to query1.FieldCount do
begin
    try
      AColumn := PBP_Grid_ColumnByField(dxGridMain, 'f'+inttostr(i));
      if AColumn.Visible then
        sqlstr := sqlstr + query1.FieldByName(AColumn.caption).AsString + ','
      else
        sqlstr := sqlstr + 'NULL,';
    except
        showmessage('Excel文件有误,导入失败。');
        exit;
    end;
end;