PureBoard

Code: Alles auswählen

char * tex_name[ 6 ]  = {
  "wie",
  "macht",
  "man",
  "das",
  "in",
  "PureBasic"
}

Code: Alles auswählen

DataSection
    tex_name:
        data.s "wie", "macht", "man", "das", "in", "PureBasic"
EndDataSection

Code: Alles auswählen

Dim tex_name.s(5)

text_name(0) =  "wie", 
text_name(1) =  "macht", 
text_name(2) =  "man", 
text_name(3) =  "das", 
text_name(4) =  "in", 
text_name(5) =  "PureBasic"

Code: Alles auswählen

Macro tex_name(Index)
    PeekS(?tex_name_img+(Index*4))
EndMacro

Debug tex_name(1)

DataSection
    tex_name_img:
        Data.s "so", "macht", "man", "das", "in", "PureBasic"
EndDataSection

Code: Alles auswählen

Macro tex_name ( index )
  StringField( "wie;macht;man;das;in;PureBasic;", index + 1, ";")
EndMacro

For I = 0 To 5
  Debug tex_name( I )
Next