Страница 1 из 1

Генератор случайных чисел?

Добавлено: 30 мар 2007, 18:42
pk
Есть ли такой оператор в "Галактике"? Хочу использовать для присвоения штрих-кодов;) Спасибо.

Добавлено: 02 апр 2007, 12:51
san
в дельфи есть, в випе похоже что нет

Добавлено: 04 апр 2007, 06:00
Alpiton
Я использовал Excel через xl-функции

Добавлено: 04 апр 2007, 09:31
Den
Была dll где то...Когда писал вывод 2НДФЛ в xml формат, там во 2-й строчке в служебной инфе в структуре записи присутствовал как раз guid.

Добавлено: 04 апр 2007, 09:59
Алексей
Den
в 2НДФЛ случайнм образом доходы заполнялись? :-D

Добавлено: 04 апр 2007, 10:05
san
кстати, действительно можно сделать длл и импортировать ф-ции в вип

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

Добавлено: 04 апр 2007, 11:10
Den
Алексей писал(а):Den
в 2НДФЛ случайнм образом доходы заполнялись? :-D
:grin: ага ...

Добавлено: 04 апр 2007, 16:59
pk
Всем спасибо, решил обойтись квазислучайным числом:
nrec записи * время сервера - константа.
С ув..