ADODataSet als ClientDataSet verwenden

[TheFrog]

So hab's ich auch implementiert, ich dachte nur es müsste eine elegantere Lösung geben, analog zum Midas-ClientDataSet.

Hier meine Implementierung:

Delphi-Quellcode:

    
  ADataSet.First;
  while not ADataSet.Eof do
  begin
    AClientDataSet.Append;
    // Feldwerte übernehmen
    for i := 0 to ADataSet.Fields.Count - 1 do
      AClientDataSet.Fields[i].Value := ADataSet.Fields[i].Value;
    AClientDataSet.Post;
    ADataSet.Next;
  end;

Hans.