Dilma писал(а):
содержимое окна Отладкагде отладка в Delphi2, ее там нет. Как мне привести пример, если этого компонента еще в среде нет, я его только отлаживаю?
Еще вопрос. Я случайно нажал какую-то клавишу во встроенном редакторе и около курсора возникло окно со всеми функциями, но я не могу больше этого повторить. Что это за клавиша?
Вот код нового компонента
func doIntToStr
fvar(d1,old)
d1 = Data
old = block.select(BLK_PRIV_VAR)
println(s, ':string;')
block.select(old)
println(s, ' := int2str(', d1, ');')
event(onResult, s)
end
func Result
if(not linked(doIntToStr))
fvar(d1,old)
d1 = Data
old = block.select(BLK_PRIV_VAR)
println(s, ':string;')
block.select(old)
println(s, ' := int2str(', d1, ');')
return(s)
else
return(s)
end
end[/code]А вот то, куда он выводитсяfunc doMessage(_data_)
if (Message <> '')
println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', Message, '), ', 'PChar(\'hiasm msg\'), MB_OK);')
elseif (Message = '' and Text <> '')
println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', Text, '), ', 'PChar(\'hiasm msg\'), MB_OK);')
else
println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', _data_, '), ', 'PChar(\'hiasm msg\'), MB_OK);')
event(onMessage)
end
Что я делаю не так?
Поиск
Друзья
Администрация