Генератор случайных чисел?
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 135
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Москва Связьтранснефть
Генератор случайных чисел?
Есть ли такой оператор в "Галактике"? Хочу использовать для присвоения штрих-кодов;) Спасибо.
-
- Местный житель
- Сообщения: 412
- Зарегистрирован: 28 апр 2005, 11:34
- Откуда: Галактика Млечный Путь
кстати, действительно можно сделать длл и импортировать ф-ции в вип
rnd.pas ----------------:
Library rnd;
Uses
utils,myrnd;
Exports
randomnum name 'RANDOMNUM';
begin
Randomize;
RegisterModule('RND.DLL');
end.
myrnd.pas -------------:
unit myrnd;
interface
function RandomNum( A : word ) : word; export;
implementation
function RandomNum( A : word ) : word;
begin
RandomNum := Random( A );
end;
End.
rnd.vip -------------:
function randomnum(word):word; external 'C:\gal712\random\rnd.dll';
interface test_rnd;
create view;
handleevent
cminit:
{
message(randomnum(100));
abort;exit;
}
end;
end.
скачать можно здесь http://depositfiles.com/files/748418
rnd.pas ----------------:
Library rnd;
Uses
utils,myrnd;
Exports
randomnum name 'RANDOMNUM';
begin
Randomize;
RegisterModule('RND.DLL');
end.
myrnd.pas -------------:
unit myrnd;
interface
function RandomNum( A : word ) : word; export;
implementation
function RandomNum( A : word ) : word;
begin
RandomNum := Random( A );
end;
End.
rnd.vip -------------:
function randomnum(word):word; external 'C:\gal712\random\rnd.dll';
interface test_rnd;
create view;
handleevent
cminit:
{
message(randomnum(100));
abort;exit;
}
end;
end.
скачать можно здесь http://depositfiles.com/files/748418