RMS ID's Generate #C0ded by AngelOfLove#

azat56

Самый опытный
Joined
May 25, 2017
Messages
170
Reaction score
21
Сделай чтобы сохранялись с расширением .xml
 

Leis

Member
Joined
Jul 10, 2017
Messages
25
Reaction score
0
Age
26
Перебирать вручную это бред, нужен чекер
 

m0nr

GOLD
Joined
Jun 8, 2016
Messages
597
Reaction score
348
5-7 минут? На что тут можно столько убить? Код можно уместить в три строки.. Если бы был чекер, то наверняка бы было совсем другое отношение у меня к сие, извините, высеру.
 

zelmh95

Member
Joined
Jul 2, 2017
Messages
132
Reaction score
4
5-7 минут? На что тут можно столько убить? Код можно уместить в три строки.. Если бы был чекер, то наверняка бы было совсем другое отношение у меня к сие, извините, высеру.
делай лучше, мы оценим!
 

m0nr

GOLD
Joined
Jun 8, 2016
Messages
597
Reaction score
348
делай лучше, мы оценим!
Нахер делать никому ненужный ГЕНЕРАТОР? Лучше, на winapi могу настрочить, думаю для генератора, это и есть то самое - лучше
 

m0nr

GOLD
Joined
Jun 8, 2016
Messages
597
Reaction score
348
делай лучше, мы оценим!
Code:
uses
System.SysUtils;
var s:string; i,a:Integer; t:Text;
begin
while True do  begin
write('Count = ' ); read(i);
assign (t,'result.txt'); Rewrite(t);
for a:=0 to i do begin
s:=IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9)) + '-'+ IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9))+ '-' + IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9));
Append(t);  writeln(t,s);
end; Writeln('Gotovo, file result.txt'); close(t); end;
end.
Оценивай, чистый винапи. Провисания от такого сложно словить, в отличии от гуишки
 
Joined
Feb 21, 2017
Messages
462
Reaction score
77
Code:
uses
System.SysUtils;
var s:string; i,a:Integer; t:Text;
begin
while True do  begin
write('Count = ' ); read(i);
assign (t,'result.txt'); Rewrite(t);
for a:=0 to i do begin
s:=IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9)) + '-'+ IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9))+ '-' + IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9));
Append(t);  writeln(t,s);
end; Writeln('Gotovo, file result.txt'); close(t); end;
end.
Оценивай, чистый винапи. Провисания от такого сложно словить, в отличии от гуишки
Чувак код писался на C# из-за этого ушло столько времени. Потом еще подключал ссылки для изменения дизайна. Там же не одна функция генерации, там еще сохранение и очищение :/
 
Top