HiAsm

Форумы Новые пакеты Delphi 2 ← Ctrl12 3 4 5...12 13 14 15 16Ctrl →

Разработчик

Ответов: 26163

Рейтинг: 2127

#1: 2007-06-22 16:57:23 ЛС | профиль | цитата

Странно оно работает, а может так и должно (что-то я вообще заработался)? Умудряется подставлять выражение преобразования минуя метод doXXXX, достаточно подключить только верхнюю и нижнюю точки.

[size=-2]------ Добавлено в 16:57
Вот код

func doIntToStr
   fvar(st, old)
   if(linked(Result))
      old = block.select(BLK_PRIV_VAR)
      println(s, ':string;')
      block.select(old)
      println(s, ' := int2str(', Data, ');')
      event(onResult, s)
   else
      event(onResult, ' int2str(' + Data + ') ') 
   end
end

func Result
   if(linked(doIntToStr))
      return(s)
   else
      return(' int2str(' + Data + ') ') 
   end
end

Но усложнить всеравно придется и напрямую выражение не получится подставить. Хочу добавить выравнивание до N знаков с заполнителем.

карма: 22

Форумы Новые пакеты Delphi 2 ← Ctrl12 3 4 5...12 13 14 15 16Ctrl →