Анимация Bruteforce текста [delphi]

[m0nr]

Всегда бесило однообразие дизайна софтов, поэтому дабы кастомизировать всё - даже придумал анимацию для своих творений. Поделюсь одним из своих способов с вами.
Суть заключается в по-символьном переборе по строке (базе символов) с использованием рандома, и выводом всего процесса на экран (Label).

Выглядит примерно так:

Компоненты:
TLabel x1
TTimer x2
Руки x2

Сперва выведем переменные, можно как глобальные, так и локальные на таймер (ваш выбор):

var
 str, now, libs, a, b:string;

На FormCreate кидаем это, отредактировав под ваши цели. (в переменной "str" содержится конечная строка, в переменной "libs" содержится набор ВСЕХ букв из переменной "str", но добавлены мусорные буквы, для более качественного эффекта перебора букв(от размера обеих переменных зависит скорость перебора))

 str:='Animation by m0nr';
 libs:='Animation mi#bnty nrib*omA{0ny0mra';

На первый таймер ставим интервал от 1, до 30 (от этого зависит скорость перебора) и кидаем этот код:

   a:=Copy(libs,Random(Length(libs)),1);
   b:=Copy(str,Length(now)+1, 1);
    label1.Caption:=now+a;
    if a=b then
    begin
    now:=now+b;
    end;
        if str=now then
        begin
        now:='';
        timer1.Enabled:=false;
        timer2.Enabled:=True;
        end;

На втором таймере ставим интервал от 1000 до 5000 и код:

timer2.Enabled:=False;
timer1.Enabled:=True;

Ну-с, как-то так. Фулл копипаст стори З?е*ался писать статью (фулл май код итс приват типа), мб в ближайшее время ещё пару своих способов анимации текста солью.

 

[Konders]

У нас на районе симпы не просят

 

[m0nr]

У нас на районе симпы не просят

Хто их просит то))0

 

[Konders]

С вас лойс(по желанию конечно же:) )

 

[m0nr]

Это всего-лишь напоминание о существовании сие функции, но, думаю тема не потеряет смысл от удаления этой строки.

 

[aspy]

Знаю,что ты убрал ту строчку,но на всякий запомни:

• 2.6. Запрещено попрошайничество симпатий / денег и так далее. Также запрещено писать сообщения, похожие на данные: "Не откажусь от симпатий", "Буду рад благодарности за проделанную работу" и прочее.

Зачем ты вставил правило,когда мог кинуть жалобу на сообщение по 2.6

 

[Cilectiy]

Зачем ты вставил правило,когда мог кинуть жалобу на сообщение по 2.6

Он уже убрал ту строчку,как я могу кинуть жалобу на то,чего нет?

 

[aspy]

Он уже убрал ту строчку,как я могу кинуть жалобу на то,чего нет?

уже ни как,хотя раньше мог

 

[m0nr]

уже ни как,хотя раньше мог

Сейчас бы гнаться за возможностью донести.. Что за люди.. Что-то мне это напоминает

 

[aspy]

Сейчас бы гнаться за возможностью донести.. Что за люди.. Что-то мне это напоминает

ладно,прости, больше не буду