HiAsm

Форумы Помощь по пакету FTCG Integer Array ← Ctrl1 2 3 4 567Ctrl →

Ответов: 1429

Рейтинг: 50

#1: 2011-10-12 07:52:47 ЛС | профиль | цитата

[offtop]вопрос снят.
по причине: надо было кешировать в memo.[/offtop]
------------ Дoбавленo в 07.52:
Подскажите. Я регистрирую переменную в первом элементе:


#hws
lang (result1:int)
lng.decl_priv_var(result1,'integer')

В Delphi она появляется так:


#pas
private
      result17:integer;

Как я могу ее использовать в другом элементе? Если я указываю ее имя, то увеличивается индекс 17-18:


#pas
      result18 := 1;

Как сделать чтобы индекс не увеличивался? Или чтобы можно было узнать первоначальный индекс 17?

Мне это нужно потому, что если на листе несколько одинаковых элементов, то получается вот такая куча одинаковых, бессмысленных, перемнных:


#pas
    private
      res5:real;
      result16:integer;
      result26:integer;
      result36:integer;
      result46:integer;
      arr7:array of array of array of array of array of integer;
      res11:real;
      result112:integer;
      result212:integer;
      result312:integer;
      result412:integer;
      res16:real;
      result117:integer;
      result217:integer;
      result317:integer;
      result417:integer;
      res21:real;
      result122:integer;
      result222:integer;
      result322:integer;
      result422:integer;
      result124:integer;
      result224:integer;
      result324:integer;
      result424:integer;
      res29:real;
      result130:integer;
      result230:integer;
      result330:integer;
      result430:integer;
      res35:real;
      result136:integer;
      result236:integer;
      result336:integer;
      result436:integer;
      res41:real;
      result142:integer;
      result242:integer;
      result342:integer;
      result442:integer;
      res47:real;
      result148:integer;
      result248:integer;
      result348:integer;
      result448:integer;

карма: 0

Форумы Помощь по пакету FTCG Integer Array ← Ctrl1 2 3 4 567Ctrl →