TMemory: New Inexpensive DBPro Plugin

Author

Message

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 01:56

Link

www.Techvance.com

TMemory for DBPro includes over 50 procedures to allocate, manipulate, and deallocate strings, arrays (1d, 2d, and 3d), and lists. TMemory places no limitation on how many dynamic strings, arrays, or lists can be created. TMemory gives DBPro much of the dynamics found in external scripting languages without the hassle of learning one. Amongst TMemory's features include:

- Inexpensive ($10.00 USD)

- Convenient string procedures. Including Field, InsertNum, InsertStr, Remove, Repeat, Replace, Search, and Tally.

- Arrays and lists can be of data type Byte, Short, Long/Integer, Single/Float, Double, and String.

- Arrays retain data when resized.

- Convenient list procedures. Including AddNum, AddStr, InsertNum, InsertStr, Remove, Reverse, Search, and Sort,

- Convenient pointer procedures to read and write from any given address. Pointer procedures support the data types Byte, Short, Long/Integer, Single/Float, and Double.

TMemory's offical site is www.Techvance.com

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 04:14

Link

Additional features:

- Compact (less than 35k).

- Includes various examples demonstrating its various features.

- DLL, Keyword file, and examples are included within a simple installation program.

http://www.Techvance.com

Back to top

Profile PM

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 17th Jul 2007 04:31

Link

I dont think this is the place for this. Maybe Program Announcements is.

Load Programmer "Crazy Programmer",1

Back to top

Profile PM Email Website

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 04:52

Link

If this was an inappropriate place, then my apologies.

Back to top

Profile PM

da power pwnerer

17

Years of Service

User Offline

Joined: 28th Jul 2006

Location: Pittsburgh, PA

Posted: 17th Jul 2007 16:39

Link

or DLL Talk... maybe

(Not sure)

http://Freewebs.com/noobisoft
Come to Noobisoft's website today!

Back to top

Profile PM Email

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 16:43

Link

"DLL Talk" does seem to be about 3rd party dlls.

Back to top

Profile PM

Manic

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Completely off my face...

Posted: 17th Jul 2007 16:46

Link

doesn't Ian M's dll's and DBP's core commands cover a lot of these functions?

personally I could do with a "you could use this to do this *insert immensily cool concept*" I've got a crick in my neck and it's stopping me from imagining.

I don't have a sig, live with it.

Back to top

Profile PM Email Website

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 17:10

Link

I'm not certain about Ian M's DLLs. However TMemory is unique to DBPro's core commands in that it allows the creation of strings, arrays, and lists dynamically. Meaning at run-time. This is convenient for the following reasons:

- Allows the construction of complex data structures. Such as lists in which each item is it's own array. Each array can be its own size and number of dimensions. They can even hold lists.

- Since all dynamically created strings, arrays, and lists are identified by Integers/Long, they can be passed to procedures and external as simply as any Integer.

Back to top

Profile PM

Manic

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Completely off my face...

Posted: 17th Jul 2007 18:04

Link

so, could you use this to effectively make the equivelent of this;

type myType
name as string
stuff(0)
other(0)
endtype

and then be able to add to the array length, held within a data type?

I don't have a sig, live with it.

Back to top

Profile PM Email Website

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 18:16

Link

Affectively, definitely. Such as:

+ Code Snippet

Type MyType
 Text1 As String
 Array1 As Integer
 Array2 As Integer
 List1 As Integer

EndType

Global Test As MyType
Test.Array1 = TM_Array_Create1D(Data_Type_Short, 1, 5)
Test.Array2 = TM_Array_Create2D(Data_Type_Double, 1, 5, 1, 10)
Test.List1 = TM_List_Create()

You could even create a "constructor" for the type. Keep in mind, all TMemory strings, lists, and arrays are handled via ids (pointers). You can store and transfer the ids wherever or however is convenient.

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 18:20

Link

Correction:

- TMemory is $5.00 (USD) not $10.00

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 23:42

Link

Here are various examples of TMemories array functions:

TM_Array_Bound

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global Array1 As Integer

`Create array
   Array1 = TM_Array_Create3D(Data_Type_String, 1, 5, 1, 10, 1, 20)

`Display array's bounds
   Text 10, 10, "#1 " + Str$(TM_Array_Bound(Array1, 1, 0)) + " ... " + Str$(TM_Array_Bound(Array1, 1, 1))
   Text 10, 30, "#1 " + Str$(TM_Array_Bound(Array1, 2, 0)) + " ... " + Str$(TM_Array_Bound(Array1, 2, 1))
   Text 10, 50, "#2 " + Str$(TM_Array_Bound(Array1, 3, 0)) + " ... " + Str$(TM_Array_Bound(Array1, 3, 1))

`Main loop
   While ScanCode()= 0
   EndWhile

TM_Array_Ptr

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global Array1 As Integer
   Global Counter As Integer

`Create array
   Array1 = TM_Array_Create1D(Data_Type_Long, 1, 5)

`Modify array
   For Counter = 0 To 4
      TM_PTR_WriteNum Data_Type_Long, TM_Array_Ptr(Array1) + (Counter * 4), (Counter + 1) * 5

   Next

`Display array's pointer
   Text 10, 10, "Ptr: " + Str$(TM_Array_Ptr(Array1))

`Display array's content
   For Counter = 0 To 4
      Text 10, 30 + (20 * Counter), Str$(Counter + 1) + ") " + TM_Array_ReadStr(Array1, Counter + 1, 0, 0)

   Next

`Main loop
   While ScanCode()= 0
   EndWhile

TM_Array_Size

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global Array1 As Integer

`Create array's
   Array1 = TM_Array_Create2D(Data_Type_Double, 1, 5, 1, 5)

`Display array's size
   Text 10, 10, "Size: " + Str$(TM_Array_Size(Array1))

`Main loop
   While ScanCode()= 0
   EndWhile

`Terminate
   End

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 23:47

Link

Here are various examples of TMemories list functions:

TM_List_Add

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer

`Create list
   List1 = TM_List_Create(Data_Type_Double)

`Modify list
   For Counter = 1 To 5
      TM_List_AddNum List1, (Counter * 10.5)

   Next

`Display list's content
   For Counter = 1 To 5
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

`Main loop
   While ScanCode()= 0
   EndWhile

TM_List_Insert

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer
   Global Index As Integer

`Create list
   List1 = TM_List_Create(Data_Type_String)

`Modify list
   For Counter = 1 To 5
      TM_List_AddStr List1, Str$(Counter)

   Next

   Index = 2
   For Counter = 1 To 5
      TM_List_InsertStr List1, Index, "---"
      Inc Index, 2

   Next

`Display list's content
   For Counter = 1 To 10
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

`Main loop
   While ScanCode()= 0
   EndWhile

TM_List_Remove

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer
   Global Index As Integer

`Create list
   List1 = TM_List_Create(Data_Type_String)

`Modify list
   For Counter = 1 To 10
      TM_List_AddStr List1, Str$(Counter)

   Next

   Index = 2
   For Counter = 1 To 5
      TM_List_Remove List1, Index
      Inc Index, 1

   Next

`Display list's content
   For Counter = 1 To 5
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

`Main loop
   While ScanCode()= 0
   EndWhile

TM_List_Reverse

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer
   Global Index As Integer

`Create list
   List1 = TM_List_Create(Data_Type_String)

`Modify list
   For Counter = 1 To 10
      TM_List_AddStr List1, Str$(Counter)

   Next

   TM_List_Reverse List1

`Display list's content
   For Counter = 1 To 10
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

`Main loop
   While ScanCode()= 0
   EndWhile

TM_List_Search

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer
   Global Index As Integer

`Create list
   List1 = TM_List_Create(Data_Type_String)

`Modify list
   For Counter = 1 To 10
      TM_List_AddStr List1, "Item #" + Str$(Counter)

   Next

`Display list's content
   For Counter = 1 To 10
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

   Text 10, 240, "'Item #5' at " + Str$(TM_List_SearchStr(List1, "Item #5"))

`Main loop
   While ScanCode()= 0
   EndWhile

TM_List_Sort

+ Code Snippet

`Constants
   #Constant Data_Type_Byte 1
   #Constant Data_Type_Short 2
   #Constant Data_Type_Long 3
   #Constant Data_Type_Integer 3
   #Constant Data_Type_Single 4
   #Constant Data_Type_Float 4
   #Constant Data_Type_Double 5
   #Constant Data_Type_String 6

`Variables
   Global List1 As Integer
   Global Counter As Integer
   Global Index As Integer

`Create list
   List1 = TM_List_Create(Data_Type_String)

`Modify list
   For Counter = 1 To 10
      TM_List_AddStr List1, "Item #" + Str$(Rnd(100))

   Next

   TM_List_Sort List1

`Display list's content
   For Counter = 1 To 10
      Text 10, (20 * Counter), Str$(Counter) + ") " + TM_List_ReadStr(List1, Counter)

   Next

   Text 10, 240, "*Keep in mind, this string-list was sorted alphabeticaly not numerically."

`Main loop
   While ScanCode()= 0
   EndWhile

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 23:51

Link

Here are various examples of TMemory's string functions:

TM_String_Field

`Variables
Global Text1 As Integer
Global Field As Integer

`Create string
Text1 = TM_String_Create("abc||def||ghi||jkl")

`Retireve field
Field = TM_String_Field(Text1, "||", 3)

`Display string
Text 10, 10, "Text #1: " + TM_String_ReadStr(Text1)
Text 10, 30, "Field #3: " + TM_String_ReadStr(Field)

`Main loop
While ScanCode()= 0
EndWhile

TM_String_Insert

`Variables
Global Text1 As Integer

`Create string
Text1 = TM_String_Create("abcdefghijkl")

`Modify string
TM_String_InsertNum Text1, 123, 3
TM_String_InsertStr Text1, "---", 3

`Display string
Text 10, 10, "Text #1: " + TM_String_ReadStr(Text1)

`Main loop
While ScanCode()= 0
EndWhile

TM_String_Replace

`Variables
Global Text1 As Integer

`Create string
Text1 = TM_String_Create("abc||def||ghi||jkl")

`Modify string
TM_String_Replace Text1, "||", "-"

`Display string
Text 10, 10, "Text #1: " + TM_String_ReadStr(Text1)

`Main loop
While ScanCode()= 0
EndWhile

TM_String_Tally
`Variables
Global Text1 As Integer

`Create string
Text1 = TM_String_Create("abc||def||ghi||jkl")

`Display string
Text 10, 10, "Text #1: " + TM_String_ReadStr(Text1)
Text 10, 30, "'||' occurs " + Str$(TM_String_Tally(Text1, "||")) + " times"

`Main loop
While ScanCode()= 0
EndWhile

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 17th Jul 2007 23:53

Link

*If the "string" functions are not within "code" blocks, I'm not sure why.

Back to top

Profile PM

CattleRustler

Retired Moderator

20

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 18th Jul 2007 00:22

Link

I like the look of your web page, and I see PayPal improved their purchase pages.

My DBP plugins page is now hosted [href]here[/href]

Back to top

Profile PM

man id unknown

17

Years of Service

User Offline

Joined: 31st Jan 2007

Location:

Posted: 18th Jul 2007 01:05

Link

First, thank you. Secondly, yes, PayPal really did improve their purchase pages. In fact, setting up the purchase page was quite simple.

Back to top

Profile PM

Sorry your browser is not supported!

DLL Talk / TMemory: New Inexpensive DBPro Plugin