MyBase: Datenlöschen

[Uwe Raabe]

Du könntest auch einen Filter auf das ClientDataSet legen. Dann würde sich die Schleife etwas verkürzen lassen:

Delphi-Quellcode:

  cds.Filter := 'Codenummer = ' + QuotedStr(lbledt1.text); // Wenn Codenummer ein numerisches Feld ist, kann man die Quotes weglassen.
  cds.Filtered := true;
  cds.First;
  while not cds.EOF do
    cds.Delete;
  cds.Filtered := false;

[Dejan Vu]

@DeddyH: Man kann vieles konstruieren. Nach bald 35 Jahren programmieren und davon ca. 30 mit Pascal und 'WITH' hatte ich den Fall noch nie. Kann sein, das andere täglich damit zu kämpfen haben, aber ich eben noch nicht.

Mir ist das nur irgendwann zu blöd geworden, die WITH-Dinger nicht mehr so leicht debuggen zu können. Seiteneffekte, wie sie von den Delphi-Gurus immer wieder beschworen werden, hatte ich nicht ein einziges Mal. Gehirnkrämpfe, weil man irgendwann nicht mehr weiß, zu welcher Instanz die gewith'ste Property/Methode denn nun gehört, ständig. Aber seit dem ich die Clean-Code-Pillen nehme (ja, auch die mit den Mustern oben drauf ) passiert mir das nicht mehr.

Zurück zum Thema: Ist beim Filtern eine Optimierung eingebaut oder wird die Tabelle nach dem 'Delete' komplett neu gefiltert (wäre ja eigentlich überflüssig)? Es wäre denkbar, das auch bei einem Locate ein 'DELETE' eine Positionierung des Datensatzzeigers auf den Anfang durchgeführt wird. Wenn dem so wäre, wäre die native Methode (1x durchrennen und alles Passende wegschmeißen) vielleicht doch die schnellste Variante?

[DeddyH]

So konstruiert war das doch auch wieder nicht. Und ich wollte nur zeigen, dass man mit Effekten aus Richtungen rechnen muss, die man gar nicht auf dem Schirm hatte

[Uwe Raabe]

Zitat von DeddyH:

So konstruiert war das doch auch wieder nicht. Und ich wollte nur zeigen, dass man mit Effekten aus Richtungen rechnen muss, die man gar nicht auf dem Schirm hatte

Klassisches Beispiel ist die Einführung der Eigenschaften Width und Height in TRect. Dadurch funktionierte z.B. folgender Block nicht mehr richtig:

Delphi-Quellcode:

with Rect do begin
  Left := (Width - 100) div 2;
  Top := (Height - 100) div 2;
end;

Tools wie der Pascal Analyzer von Peganza weisen einen aber dann doch auf solche Fälle hin.