|
goto 6
delete()
Contoh diatas adalah dengan mengalihkan pointer ke rekod enam dan
ditandakan untuk dimansuhkan.Ianya sering digunakan didalam mode
"standard shell foxpro".
Delete Semasa
ip=space(3)
@10,20 say 'Haiwan :'get ip
read
Locate for itek = ip
if found()
delete()
endif
Dengan menggunakan command locate dan setelah menjumpai data yang
diperlukan maka rekod tersebut ditandakan untuk dimansuhkan.
Proses ini lebih fleksible dan mudah serta boleh diulangkan
beberapa kali didalam program tanpa membuat apa-apa pindaan program
set.
.