Hola Foro:
Este código borra un registro de un RXMemoryData.
Cuando hago in click en el dbgrid, cargo la variable ID_INI y luego para borrar hago una busqueda secuencial desde el primer registro hasta el último. Si por una de esas no está OK queda en False y no hago nada.
Esto anda bién, pero me parece mucha cosa para borrar un registro.
Qué opinión les merece?. Desde ya muchas gracias por su opinión.
Código Delphi
[-]
with RxMDCompleto do begin
OK:=False;
First;
while not(eof) do begin
if fieldByName('ID_INI').AsInteger=ID_INI then begin
OK:=True;
Break;
end;
next;
end;
if OK=True then begin
Delete;
end;
end;