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
OS: Linux Mint 20 Cinnamon (64-Bit), Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC), Lazarus 2.1 (Freepascal 3.3.1),