On 04/27/2016 12:02 PM, Rolf-Werner Eilert wrote:
> This is the code:
>
> Public Sub setFontNameList(fontliste As String[])
> Dim i As Integer
>
> fntexc.Clear
>
> For i = 0 To fontliste.count - 1
> fntexc.Add(fontliste[i])
> Next
>
> End
>
> It didn't run, so I set a Wait to the line fntexc.Clear. "fontliste[]"
> is delivered as it should, it has 3 items. But fontliste.Count is 0,
> fontliste.Max would be -1. So it is never copied.
>
> What is going wrong here???
>
> Regards
> Rolf
>
I have to assume that "fntexc" is a 'global' since it is not declared in the
Sub.
This code...
' Gambas module file
Public fntexc As String[]
Public Sub Main()
Dim sFont As String
fntexc = []
setFontNameList(["courier", "helvetica", "arial"])
For Each sFont In fntexc
Print sFont
Next
End
Public Sub setFontNameList(fontliste As String[])
Dim i As Integer
Debug fontliste.Count
fntexc.Clear
For i = 0 To fontliste.count - 1
fntexc.Add(fontliste[i])
Next
End
...works, and outputs:
MMain.setFontNameList.19: 3
courier
helvetica
arial
Hope that helps,
--
Lee
__________
"Artificial Intelligence is no match for natural stupidity."
------------------------------------------------------------------------------
Find and fix application performance issues faster with Applications Manager
Applications Manager provides deep performance insights into multiple tiers of
your business applications. It resolves application problems quickly and
reduces your MTTR. Get your free trial!
https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
