Претензия к TonuMC (клевата)

А где клевета то?) 150 рублей не стоит строка rand(1)

 

с чего ты взял что софт сделан именно так?
и твоей топ строкой ты ничего не сделаешь) только ошибку
как минимум нужны 2 значения в "rand"

 

Сложно же написать в вк ему и сказать "Ты еблан,поясни за слова"
или попросить модера почистить топик

 

Я сказал, он отвтеил что эту хуйню за 10 минут сделает.... Скачал Дельфи и пишет "Когда научись и тогда сделаю" ;D

 

Ахаха, софт действительно пишется за 10 минут

 

https://zelenka.guru/threads/203117/
тему закрывайте.
Клеветы - нет.

 

Пруф что он приобрел у меня софт и написал отзыв что это хуйня.
Жду. Ты не свидетель и нахуя ты сюда пишешь?)

 

Можешь скачать и сравнить софт, кроме вывода в XML он ничем не отличен так-же
2Сек = 100строк
Поэтому он скачал мой - и проверил

 

Он скачал твой, а не мой. Различать умеешь? Твой - другой, мой - другой.

 

красава, от души чисто

 

Работа софта идентична, вплоть до самой его работы, просто код другой(Потому-что и я зык тоже)

 

Ну вот, так что можешь не писать хуйню. Свободен, можешь гулять.

 

procedure TForm2.Timer1Timer(Sender: TObject);
var
i: Integer;
a, b, c: integer;
d: string;
begin
for i := 0 to Form2.sCountId.Value - 1 do
begin
a := 100 + Random(899);
b := 100 + Random(899);
c := 100 + Random(899);
d := IntToStr(a) + '-' + inttostr(b) + '-' + inttostr(c);
sMemo1.Lines.Add(d);
sCountStrok.Caption := IntToStr(sMemo1.Lines.Count);
if sMemo1.Lines.Count = sCountId.Value then
begin
sSaveMemo.Enabled := True;
sClear.Enabled := True;
Timer1.Enabled := False;
Break;
end;
end;
end;

Код

procedure TForm2.Timer1Timer(Sender: TObject);

var

  i: Integer;

  a, b, c: integer;

  d: string;

begin

  for i := 0 to Form2.sCountId.Value - 1 do

  begin

    a := 100 + Random(899);

    b := 100 + Random(899);

    c := 100 + Random(899);

    d := IntToStr(a) + '-' + inttostr(b) + '-' + inttostr(c);

    sMemo1.Lines.Add(d);

    sCountStrok.Caption := IntToStr(sMemo1.Lines.Count);

    if sMemo1.Lines.Count = sCountId.Value then

    begin

      sSaveMemo.Enabled := True;

      sClear.Enabled := True;

      Timer1.Enabled := False;

      Break;

    end;

  end;

end;

И улучшать можно его как угодно, вплоть даже наверное до последующего гена, если получили число, отчитывать случайное) не важно как главное работа софта вточь вточь

 

Зеркальная копия программы + сурс код https://zelenka.guru/threads/202952/

 

D3F4ULTS, Блять это не софт а хуйня, продавать это за 150 рублей ну это просто пиз***

 

Братюнь,это бесплатная аналогия,а на tonumc забей он хуепут@ло еб@ное.
Просто понимаешь,люди то халяву больше любят.Заебаш прогу,что бы автоматически подключались эти ip или чекер для них и продавай уже тогда.