Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='515' then
Form1.Caption:='Пароль взломан!'
else Form1.Caption:='неправельно!';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1';
if Edit1.Text='1' then
begin
if Form1.Caption='неправельно!' then
Edit1.Text:='2';
if Edit1.Text='2' then
begin
if Form1.Caption='неправельно!' then
Edit1.Text:='3';
Личинка человека решила сделать брутфорс паролей. Когда нажимается кнопка идёт беспощадный перебор без цикла на предмет совпадения пароля
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=0;
repeat
Edit1.Text:=IntToStr(i);
if Form1.Caption='Ïàðîëü âçëîìàí!' then break;
i:=i+1;
until false;
end;
TForm1, например.
p.s. Все мы с такого начинали, в том числе с "неправельно".
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=0;
repeat
Edit1.Text:=IntToStr(i);
if Form1.Caption='Ïàðîëü âçëîìàí!' then break;
i:=i+1;
until false;
end;