Example: DataSetCount, DataSets

The following code fragment illustrates how DataSets and DataSetCount can be used to ensure that an action is taken for every open dataset that is a table.

After that all open datasets will be closed.

var
  I: Integer;
begin
  with MySQLDatabase1 do
  begin
     while DataSetCount <> 0 do 
     begin
        if DataSets[0] is TMySQLTable then
        begin
         // Some code
        end;
        DataSets[0].Active := False;
     end;
  end;
end;