MyBase: Datenlöschen

[DeddyH]

Das würde ich vielleicht eher so angehen (Pseudo-Code):

Delphi-Quellcode:

Dataset.First;
while not Dataset.EOF do
  begin
    if Dataset.FieldByName['Codenummer'] = DeinSuchbegriff then
      Dataset.Delete
    else
      Dataset.Next;
  end;

SQL o.ä. scheidet bei MyBase ja leider aus.

[Jumpy]

Zitat von DeddyH:

SQL o.ä. scheidet bei MyBase ja leider aus.

Das wußte ich nicht und nehme meinen obigen Vorschlag wieder zurück.

[Kralle]

Danke, für Eure Hilfe.

Die "Schleife " habe ich jetzt so gelöst:

Code:

with  ClientDataSet1 do
   begin
     First;
     while not EOF do
       begin
         if FieldByName('Codenummer').AsString = lbledt1.text then
           Delete
         else
           Next;
       end;
   end;

Oder spricht was gehen "with"?

Gruß Heiko

[mkinzler]

Wenn Du Dir ganz sicher bist, dass niemand jemals auf die Idee kommt, einem Formular First/Next/Delete Eigenschaften/Methoden zu spendieren.

[Kralle]

Moin,

Zitat von mkinzler:

Wenn Du Dir ganz sicher bist, dass niemand jemals auf die Idee kommt, einem Formular First/Next/Delete Eigenschaften/Methoden zu spendieren.

Selbst Wenn jemand dem Formular diese Eigenschaften zufügen würde, würde das "with" nicht dafür sorgen, das "first" und "next" sich auf das "ClientDataSet1" beziehen?
Oder würden sich die Eigenschaften dann auf trotzdem auf das Formular beziehen?

Gruß HEiko

[DeddyH]

With nutzt immer den "innersten" Scope, d.h. in Deinem Fall sollte es keine Probleme geben. Trotzdem lauern da Fallstricke, die sich u.U. nur sehr schwer finden lassen, so dass einige User (mich eingeschlossen) von der Benutzung von with abraten.

[Kralle]

Hallo,

Zitat von DeddyH:

With nutzt immer den "innersten" Scope, d.h. in Deinem Fall sollte es keine Probleme geben. Trotzdem lauern da Fallstricke, die sich u.U. nur sehr schwer finden lassen, so dass einige User (mich eingeschlossen) von der Benutzung von with abraten.

also doch lieber die Variante mit "ClientDataSet1." - richtig?

Gruß Heiko

[Dejan Vu]

Zitat von DeddyH:

Trotzdem lauern da Fallstricke, ... von der Benutzung von 'with' abraten.

Der imho einzige nervende Fallstrick ist der, das man den Debugger nicht verwenden kann. Böse und schwer zu findende Fehler hatte ich noch keine. Aber da man den Debugger nicht verwenden kann und 'with' auch keinen Mehrwert bringt, kann (und sollte) man getrost darauf verzichten. Aber da hat so jeder seine eigenen Erfahrungen.

[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?