Löschen von 1 zu n und 1 zu n

[Tau]

Hallo Treffnix

Delphi-Quellcode:

      with AdoQuery1 do
         begin
            with SQL do
               begin
               Clear;
               Add('SELECT * From Demo1');
               Add('WHERE');
               Add('TestID LIKE');
               Add(#39 + SuchID + '%' + #39);
            end;
         Open;
      end;
      for Y := 0 to AdoQuery1.RecordCount -1 do
         begin
            if AdoQuery1.RecordCount > 0 then
            AdoQuery1.Delete;
            AdoQuery1.Next;
         end;
      end;

mfg
Tau