Erase a static array [Resolved]

[Kcc]

Hello at all

How can i do for erase a static array and have only five result at the second time ???

For example :

Code: Select all

A
E
R
T
U
""
""
""
""
""

The code

Code: Select all

Procedure ChargeTablo(Number)
 
 Static Dim ArrayLetter.s(100)
 
 For i = 1 To Number
 
  Repeat
   Ascii = Random(90)
  Until Ascii > 64
  
  ArrayLetter(i) = Chr(Ascii)
  
 Next 
 
 ArrayLetter(0) = "Stop"
 ProcedureReturn @ArrayLetter()
 
EndProcedure

Dim ArrayKcc.s(0)
ChargeTablo(10)
ArrayKcc() = ChargeTablo(5)

For i = 0 To 10
 Debug ArrayKcc(i)
Next 

Thanks for your help

[milan1612]

Code: Select all

Repeat
  Ascii = Random(90)
Until Ascii > 64

Here's a more 'direct' way

Code: Select all

Ascii = Random(25) + 65

[Kcc]

Hello MILAN glad to talk to you

I see i'm always also funny, even when i don't want

Ascii = Random(25) + 65

Cool, it's so simple, that i have not thinking of that

And for my problem you don't know how i can erase a static array ??? :roll:

[Kaeru Gaman]

Code: Select all

Dim ArrayLetter(0)

... is this what you want?

[srod]

Redimension it using Dim (not ReDim).

Code: Select all

Dim a.s(10)
a(1) = "Hello!"
Debug a(1)

Dim a.s(10)
Debug a(1)

[Kwai chang caine]

Hello at you two

I use a DLL who return the pointer of array.
But for return a pointer of array, i must dim it in STATIC or GLOBAL, i don't have the choice

So when i call the first time the DLL, the array is good STATIC dimensionned
But the second time, i want erase the STATIC array for write new word in him

With this example, i want obtain in the debbuger:

Code: Select all

Hello!
"" <---- empty a(2)
"" <---- empty a(1)
Goodbye!

But i obtain

Code: Select all

Hello!
"" <---- empty a(2)
Hello! <---- I don't want a(1) i want that the array is erase for the second time
Goodbye!

This is the big code

Code: Select all

Global x

Procedure TheArray()

 Static Dim a.s(10)
  
 If x = 1
  a(1) = "Hello!"
 Else
  a(2) = "Goodbye!" 
 EndIf
  
 Debug a(1)
 Debug a(2)
 
EndProcedure 

x + 1
TheArray()
x + 1
TheArray()

I have try :

Code: Select all

Static Dim a.s(0)
ReDim a(10)

Not works

Code: Select all

Dim a.s(0)
Static Dim a.s(10)

Not authorized

Code: Select all

 Static Dim a.s(10)
 Dim a.s(0)
 Static Dim a.s(10)

Not authorized

[Kaeru Gaman]

did you forget your password that you registered a new account?

try something like this:

Code: Select all

#TableSize = 10
Global x

Procedure TheArray()
  Static Dim a.s(#TableSize)
  For n=0 To #TableSize
    a(n) = ""
  Next
   
  If x = 1
    a(1) = "Hello!"
  Else
    a(2) = "Goodbye!"
  EndIf
   
  Debug a(1)
  Debug a(2)
  
EndProcedure

x + 1
TheArray()
x + 1
TheArray()

... or use a Fixed-String array, then you can erase the Memory directly...

[Kwai chang caine]

did you forget your password that you registered a new account?

Obviously....you have the eye at all
Nothing is forgotten

Yes i'm a prick
But i know, that i don't learn anything at everybody, when i say that

My UserName is "Kwai chang caine" is french forum.
So when the forum is changed, i try to connect with this name
And nothing works.
I have send several mails, but no answer

And today, i have see that my UserName in the US forum is "Kwaï chang caïne".
Then it's too late, i have create the new account.

Thanks for your answer, but i search a more "professionnal" method for do this.
I have thinking to erase the array with a loop of ""
But i say to me that they are surelly another way to erase it, more quickly, no ???? :roll:

Why we can erase a GLOBAL DIM with "0", and that's not works with STATIC ?? :roll:

[Kaeru Gaman]

the problem with STATIC is, it is only executed at first call, because it is meant to be ... static.

more professional? what the heck!
only having one command to do something does not at all mean it would be faster or better than a simple loop.

you need to have something that makes sure the strings behind the pointers are correctly freed, too.
if you use Fixstrings, the Stringdata is directly within the Array and you can just Zero the Memory to erase your strings.

so, a loop with string = "" is professional, just erasing the pointers would look more professional but produce a memleak and thus is less professional.

[Kwai chang caine]

Ok kaeru

so, a loop with string = "" is professional, just erasing the pointers would look more professional but produce a memleak and thus is less professional.

It's just because that is my method....then i think it's not professionnal
And like i have never see a professional working, how can i know what is the good method :roll:

Thanks for your answer

[harkon]

Or maybe like this

Code: Select all

Global x

Procedure TheArray()

Static Dim a.s(10)

ReDim a(0)
ReDim a(10)
 
If x = 1
  a(1) = "Hello!"
Else
  a(2) = "Goodbye!"
EndIf
 
Debug a(1)
Debug a(2)

EndProcedure

x + 1
TheArray()
x + 1
TheArray()

Should be quicker for larger arrays.

[Kwai chang caine]

Thanks for your method.
Now i have the choice

The method of kaeru and srod works too

Code: Select all

Global x

Procedure TheArray()

Static Dim a.s(10)
Dim a(10)

If x = 1
  a(1) = "Hello!"
Else
  a(2) = "Goodbye!"
EndIf

Debug a(1)
Debug a(2)

EndProcedure

x + 1
TheArray()
x + 1
TheArray()

[harkon]

I forgot about Srod's post,

Yup, that would be the one I'd use.