BitSet operations

[Joakim Schramm]

Ruslan,

I am sorry if this email was trown away in a haste, I was preparing it to be
fully understandable having a bus to catch in 40 min. when I customer called
and took 20 min. of my time. I will look at this again taking your comments
into count and see if I possibly have overlooked anything.

Joakim 

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Ruslan Zasukhin
> Sent: 05 May 2006 14:37
> To: valentina at lists.macserve.net
> Subject: Re: BitSet operations
> 
> On 5/5/06 1:48 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> 
> What this function MUST TODO ??
> You should have such comments ABOVE function Also it will be 
> great if your code will have some comments
> 
> I know YOU can read it, but IF you do wrong code then how I 
> can guess what is your idea? You see?
> 
> > Public Function AddPlaceRec(uPlace As AtlDataUDT) As 
> Boolean Dim NewId 
> > As Long, NewPtr As Long Dim lnk As VLink Dim Res As VSet Dim arr As 
> > VArraySet
> > 
> > With uPlace
> > 
> >     If Len(Trim$(.TownName)) Then
> >         If .CountryID = 0 Then
> >             .CountryID = mCountryID
> >         End If
> > 
> >         Set lnk = mAtlasDB.Link(lnkCountryHasZones)
> >         Set arr = lnk.FindLinked(.CountryID, tCountry, tZones)
> >         Set Res = arr
> > 
> >         If Res.Count > 1 Then
> >             Set lnk = mAtlasDB.Link(lnkCountryHasPlaces)
> >             Set Res = lnk.FindLinked(.CountryID, tCountry, tPlaces)
> >             NewPtr = FindZoneDataID(.LatDeg, .LongDeg, .LatSign, 
> > .LongSign, Res)<---Function not working below
> >         Else
> >             NewPtr = arr.GetItemAt(1)
> >         End If
> > 
> >         tPlaces.SetBlank forAdd
>            ......
> 
>             here stripped code to field fields and add records ?
> 
> > End Function
> 
> --
> Best regards,
> 
> Ruslan Zasukhin
> VP Engineering and New Technology
> Paradigma Software, Inc
> 
> Valentina - Joining Worlds of Information http://www.paradigmasoft.com
> 
> [I feel the need: the need for speed]
> 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>