ClientDataset: Wie Record verschieben oder Position tauschen

[Uwe Raabe]

So ist es meiner Meinung nach etwas einfacher.

Delphi-Quellcode:

var
  current: Integer;
  Filterstatus: Boolean;
  fld: TField;
  linelist: TStringList;
  datalist: TStringList;
begin
  current := cds1.RecNo;

  FilterStatus := cds1.Filtered;
  cds1.DisableControls;
  try
    cds1.Filtered := false;
    cds1.MergeChangeLog;
    datalist := TStringList.Create;
    try
      linelist := TStringList.Create;
      try
        linelist.Delimiter := #1;
        linelist.StrictDelimiter := true;
        cds1.First;
        while not cds1.Eof do begin
          linelist.Clear;
          for fld in cds1.Fields do begin
            linelist.Add(fld.Text);
          end;
          datalist.Add(linelist.DelimitedText);
          cds1.Next;
        end;
      finally
        linelist.Free;
      end;

      datalist.SaveToFile(CurrentFileName);
    finally
      datalist.Free;
    end;

  finally
    cds1.Filtered := FilterStatus;
    cds1.EnableControls;
  end;

  if Current <> -1 then cds1.RecNo := Current;
end;

[Harry Stahl]

@Uwe: Danke für die Optimierungshinweise.

Mit anderen Worten, es gibt keine einfachere Variante, um auf die Datensätze innerhalb des Clientdataset zuzugreifen. Ist jetzt kein Drama, aber wenn es eine Möglichkeit gegeben hätte, wäre es gut, das zu wissen.

[jaenicke]

Noch einfacher wäre es nur, wenn das Dateiformat nicht vorgegeben wäre. Wir benutzen einfach die integrierte Methode zum Speichern und Laden von XML Dateien. Das hat den angenehmen Nebeneffekt, dass auch die Feldinformationen schon automatisch dabei sind usw. und es ist eben nur die eine Zeile Quelltext jeweils.