Array am schnellsten füllen??

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: Array am schnellsten füllen??

Beitrag von mk-soft »

Geht auch mit direkten kopieren aus de DataSection in das Array

Code: Alles auswählen

EnableExplicit

Define *pArray, i

Dim arr.i(293)

*pArray = @arr()

CopyMemory(?table, *pArray, 294 * SizeOf(integer))

Debug "**** 1 dims ****"
For i = 0 To 293
   Debug "i=" + i + " / Value = " + arr(i)
Next

Dim arr2.i(20, 13)

*pArray = @arr2()

CopyMemory(?table, *pArray, 294 * SizeOf(integer))

Define out.s, row, column
Debug "**** 2 dims ****"
For row = 0 To 20
  For column = 0 To 13 
    Debug "row " + row + " / column = " + column + " / Value = " + arr2(row, column)
  Next
Next

DataSection
   table:
      Data.i   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14
      Data.i  15,  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28
      Data.i  29,  30,  31,  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42
      Data.i  43,  44,  45,  46,  47,  48,  49,  50,  51,  52,  53,  54,  55,  56
      Data.i  57,  58,  59,  60,  61,  62,  63,  64,  65,  66,  67,  68,  69,  70
      Data.i  71,  72,  73,  74,  75,  76,  77,  78,  79,  80,  81,  82,  83,  84
      Data.i  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,  96,  97,  98
      Data.i  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
      Data.i 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126
      Data.i 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140
      Data.i 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154
      Data.i 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168
      Data.i 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182
      Data.i 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196
      Data.i 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210
      Data.i 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224
      Data.i 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238
      Data.i 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252
      Data.i 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266
      Data.i 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280
      Data.i 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Benutzeravatar
Then
Beiträge: 247
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Re: Array am schnellsten füllen??

Beitrag von Then »

Super, danke, :bounce:
verständlich ist's so gerade noch für mich.

Muss ja auch nur noch funktionieren

Bei :

Code: Alles auswählen

...( x - 6 )...
hab ich es bei meinem Code komplett vermasselt und dann den Durchblick verloren :bluescreen:
PB 5.62 / Windows 11 64Bit (i5/32GB/240GB-SSD+3TB-HDD/1050GTX4GB) / 27" Multitouch Monitor

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Antworten