topic-31636

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

TData question
Posted: Sun Nov 29, 2015 08:50 PM

Dear James,
In my copy of TData I have following commends:
::load() // Removed this line for FW 10.02
//::setArea( ::nArea ) // New for FW 10.02

I can’t remember where these commends are from.
Can you recommend what the right line for the current FWH release is?
Thanks in advance
Otto

Code (fw): Select all Collapse

//--- use() -> lSuccess
method use() class tdata
   local n:=0
   local lSuccess:= ::netLock({|| ::fileUse() }, "File open")
   if lSuccess
      ::load()           // Removed this line for FW 10.02
      //::setArea( ::nArea ) // New for FW 10.02
      for n = 1 to ( ::cAlias )->( FCount() )
         AAdd( ::aFldNames, ( ::cAlias )->( FieldName( n ) ) )
      next
   endif
return lSuccess

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: TData question
Posted: Mon Nov 30, 2015 03:07 PM

Otto,

The lines should be:

// ::load() // Removed this line for FW 10.02
::setArea( ::nArea ) // New for FW 10.02

The latest TData.prg is dated 4/9/2010. It appears that you modified it. I will send you the original.

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums

Continue the discussion