PureBasic Forums - English

Sorry, that's my fault. It works just fine.

If I use "Read" in a procedure, the program doesn't work. This is bad.

If I compile this program with the F5 key, then a wrong error message occurs.

; Wrong error message

EnableExplicit

DataSection

Cards: ; each row is a card, -1 ist the end of the cards data

Data.w 825, 0, 0, 225, 0 ...

Please insert this into the doc: http://www.purebasic.fr/german/viewtopi ... 80#p294580

This code works fine for the increment of a large number as string: Structure char
c.c[0]
EndStructure

Procedure.s Inkrementieren(Zahl.s)
Protected *char.char = @Zahl
Protected Pos.i = Len(Zahl) - 1
While Pos >= 0
If *char\c[Pos] = '9'
*char\c[Pos] = '0'
Else
*char\c[Pos] + 1 ...

OK, I haven't read exactly enough and misunderstood the problem.

@Baldrick: This is wrong.

color = val("$ABCDEF") has the format: BBGGRR, but you use the format RRGGBB.

See here:

mycolor$ = "$FFEEDD" ; Format: BBGGRR, RR(Red) = DD, GG(Green) = EE, BB(Blue) = FF
mycolor = Val(mycolor$)
Debug "my decimal number is : "+Str(mycolor)+" or as hex : "+Hex(mycolor ...

OK, topic title is changed.

OK, how can I change the topic title?

@fred, freak: Thank you for your posts. So I know that the topic has reached you.

@Little John: If procedure "One()" calls procedure "Two()", then procedure "Two()" isn't a sub-procedure? How would you describe procedure "Two()" (I'm from germany and I doesn't have the correct english word)?

A ...

I think it is a bug or an inaccurate documentation. If it is not a bug then it is my feature wish (and the documentation should be updated.)

Greetings.

Thank you netmaestro.

Shared must exist in a minimum of two places in your code to make any sense (and actually do something useful). If it exists in only one place, there is nobody to share with. I doesn't agree with you. Please see the first example in the "Shared" documentation. There is only ...

Thank you ts-soft.

But the first definition of the variable "Element" is in the procedure "Random_Element()".

The behavior of "Shared" is differently to written in the documentation.

I have 1100 lines of code, 15 procedures, many variables. Your solution expands the main program code and the ...

Hello,

the keyword "Shared" doesn't work, but it isn't forbidden in the documentation:

Procedure.s Create_Display_Text()
Shared Element
Debug Element
Text.s = "Random_Element is: " + Str(Element)
ProcedureReturn Text
EndProcedure

Procedure Random_Element()
Element.l = Random(100) + 1 ...

Hello,

this is a code extract from idle's code: What is the function of this IF: ENDIF block?

Greetings.

Hello,

Is it necessary to have the Boolean keyword? Wouldn't just surrounding an assignment operation be enough to evaluate it as an expression?
May be, but it will be much clearer like that.
I think no. If you have far indented source code, a Keyword (e.g. Boolean) moves the expression to the ...