История изменений

Исправление ~~rezedent12~~, 04.06.15 12:27 (текущая версия) :

А как ты память выделяешь? Сразу побольше и хрен с ним?

Например так.

Dim MyArray As Integer []
...
MyArray.add(MyConst)

if MyArray.Count>0 then
   For a = 0 To MyArray.Max
      LabelList.Text=LabelList.Text & Chr(13) & Str(a) & " = " & MyArray(a)
   Next
End If

Это на Gambas.

Исходная версия ~~rezedent12~~, 04.06.15 12:26:

А как ты память выделяешь? Сразу побольше и хрен с ним?

Например так.

Dim MyArray As Integer []
...
MyArray.add(MyConst)

if MyArray.Count>0 then
   For a = 0 To My
      LabelList.Text=LabelList.Text & Chr(13) & Str(a) & " = " & MyArray(a)
   Next
End If

Это на Gambas.