Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26170
Рейтинг: 2127
#16: 2011-03-11 17:20:01 ЛС | профиль | цитата
flud писал(а):
вшить ключ

На кой черт, когда ключ можно зашифровать и положить в Memory иkи MemoryStream А есть еще элемент StreamAray, если надо положить несколько ключей. Вот еще сидеть и изобретать велосипед
карма: 22

0
Ответов: 876
Рейтинг: 101
#17: 2011-03-11 17:25:29 ЛС | профиль | цитата
nesco писал(а):
На кой черт, ключ можно зашифровать и положить в Memory иkи MemoryStream

мне нужен был способ вшить в прогу бинарник да так чтоб он не весел в ресурсах.
карма: 1

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#18: 2011-03-11 17:29:10 ЛС | профиль | цитата
flud писал(а):
мне нужен был способ вшить в прогу бинарник да так чтоб он не весел в ресурсах

Аааа, но тады -- ой !!!
карма: 22

0
Ответов: 758
Рейтинг: 112
#19: 2011-03-11 17:40:37 ЛС | профиль | цитата
flud, нашол баг --> выдает одно лишнее число

Add(MainForm,13878031,336,210)
{
Width=247
Height=236
Position=1
link(onCreate,2741100:doBite,[])
}
Add(InlineCode,2741100,385,224)
{
WorkPoints=#6:doBite|
EventPoints=#6:onBite|10:onBiteStop|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|5:const|37: arr:array[0..2] of Byte = (27,98,2);|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|20: onBite:THI_Event;|24: onBiteStop:THI_Event;|49: procedure doBite(var _Data:TData; Index:word);|5: end;|1: |14:implementation|0:|0:|58:procedure THiAsmClass.doBite(var _Data:TData; Index:word);|14:var i:integer;|5:begin|29: for i := 0 to Length(arr) do|7: begin|28: dtInteger(_Data, arr[i]);|30: _hi_onEvent_(onBite,_Data);|5: end;|25: _hi_OnEvent(onBiteStop);|4:end;|0:|4:end.|
link(onBite,15875823:doAdd,[])
}
Add(ListBox,15875823,441,224)
{
Left=10
Top=10
Width=215
Height=180
}
карма: 1

0
Ответов: 3349
Рейтинг: 233
#20: 2011-03-11 19:10:01 ЛС | профиль | цитата
miver, Это не баг, Length выдает не последний индекс, а кол-во элементов, а их три 0, 1, 2.
карма: 1

0
20
Сообщение
...
Прикрепленные файлы
(файлы не залиты)