topic-38671

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

erase two element of an array
Posted: Mon Mar 23, 2020 11:16 PM

I have an array

1
1
2
2
3 <------------------ I wish erase this
3 <------------------I wish erase this
4
4
5
5

and I wish erase only the lines having the number 3

I not understood why the procedure erase only one line having the number 3

the test

Code (fw): Select all Collapse

#include "Fivewin.ch"

Function test()
   local aItemsRows:={}
   local n,d
local nNumber:=3

// create an array
For n= 1 to 5
      aadd(aItemsRows, {n} )
      aadd(aItemsRows, {n} )
next n


xbrowser aItemsRows

//now I wish erase only some records all numbers 3

For d =1 to Len(aItemsRows)

           IF aItemsRows[d][1]=nNumber
                 adel( aItemsRows,d,.f.)
                //   asize( aItemsRows, len( aItemsRows))
              ENDIF

           next d

xbrowser aItemsRows
return nil

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: erase two element of an array
Posted: Tue Mar 24, 2020 01:23 AM

https://vivaclipper.wordpress.com/tag/adel/

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: erase two element of an array
Posted: Tue Mar 24, 2020 04:04 AM

Code (fw): Select all Collapse

For n= 1 to 5
      aadd(aItemsRows, {n} )
      aadd(aItemsRows, {n} )
next n

xbrowser aItemsRows

n := 1
do while n < Len( aItemsRows )
   if aItemsRows[ n, 1 ] == 3
      ADel( aItemsRows, n, .t. )
   else
      n++
   endif
enddo

xbrowser aItemsRows

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: erase two element of an array
Posted: Tue Mar 24, 2020 11:05 AM

thanks

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion