TADODataSet -> Enthält nur ein Datensatz

[shmia]

Na ich weiss nicht, ob deine Lösung so toll ist.

Delphi-Quellcode:

cMyADOConnection = class(TObject) 
private 
        ... 
        var DataSet: TADODataSet;  // ***
        ... 
public 
        ... 
        function get_DataSet(): TADODataSet; 
        ... 
end;

Es sollte klar sein, dass mit obigem Code nur ein einziges Dataset möglich ist.
Die Variable (markiert mit ***) muss weg und get_DataSet() sieht im Prinzip so aus:

Delphi-Quellcode:

function cMyADOConnection.get_DataSet(): TADODataSet;
begin
   result := TADODataSet.Create(nil);
   result.Connection := ...
end;

So wird bei jedem Aufruf ein neues Dataset erzeugt.
Aber Vorsicht, der Aufrufen muss das Objekt freigeben, sonst Speicherleck.
Besser wäre:

Delphi-Quellcode:

cMyADOConnection = class(TObject) 
private 
        ... 
public 
        ... 
        // der Aufrufer muss das Dataset bereitstellen und auch freigeben
        procedure Setup_DataSet(ds:TADODataSet); 
end;