Can be usefull to build applications that supports Unicode or not
I use this header to implement CString, which makes it even easier to program in UNICODE
I thing CString is better than Freebasic String in this way.

Tchar.bi /' * This file has no copyright assigned and is placed in the Public Domain. * This file is part of the mingw-w64 runtime package. * No warranty is given; refer to the file DISCLAIMER.PD within this package. '/ '#include Once "crt\crtdefs.bi" #ifndef _INC_TCHAR #define _INC_TCHAR...

I thinks we can do better type CForm1 Extends CForm private: As CBUTTON Command1(100) ' this is allowed or As CBUTTON ptr Command1(any) Declare Static Sub Command1_MouseDown(ByRef sender As object,Button As Integer, Shift As Integer, X As Integer, Y As Integer) public: Declare Constructor() End typ...

you don't have modified .bi so use lptvbl->

UEZ wrote

Thank you Joshy. Just before you posted it I figured out, too that the priority is different than in other programming languages.

has the problem been repaired?

what about returning byref AS UDT ?

ok it's good now, i will test the speed later

fxm I think you need to improve your code a bit because look what happens with this example. Sub RemoveDuplicate OverLoad (Arr() As String,Lanswer()As String) Redim Lanswer(0) Scope Dim As Long flag For n1 As Long=Lbound(Arr) To Ubound(Arr) flag=0 For n2 As Long=n1+1 To Ubound(Arr) If Arr(n1)=Arr(n2...

fxm wrote - Pointer arithmetic depends of the variable type pointed to. When adding for example '+1' to a typed pointer, the resulting pointer value (address) is incremented by the size of the variable type pointed to. Pointer arithmetic is also allowed on an 'Any Ptr', but it is treated (by conven...

the method of fxm is correct, but not suitable for large loops on the other hand the dodicat method is optimized but does not give the expected result for the following case: Dim mem () As Long Redim mem (0 to 6) mem (0) = 10 mem (1) = 12 mem (2) = 12 mem (3) = 11 mem (4) = 10 mem (5) = 20 mem (6) =...

Sub RemoveDuplicate (Arr() As Integer) Dim i As Integer Dim k As Integer k = LBound(Arr) For i = LBound(Arr)+1 To UBound(Arr) If Arr(k) <> Arr(i) Then k = k + 1 Arr(k) = Arr(i) End If Next i ' Remove unused entries from the result array. ReDim Preserve Arr(LBound(Arr) To k) End Sub Dim mem() As Int...

with these two functions things are normal. curious that you still have bugs Constructor CPicture(ByVal opic As IPicture Ptr) If m_pPicture Then m_pPicture->lpvtbl->Release(m_pPicture) EndIf m_pPicture=opic If m_pPicture Then m_pPicture->lpvtbl->AddRef(m_pPicture) EndIf End Constructor Operator CPic...

I said with this in constructor and operator

we can use delete see my last post

but it seems to me that because of the reference even if Delete is not used the memory is erased?
what do you thing?