Недавно начал изучать язык программирования, и мне нужны формулы, с объяснениями ну к примеру такого типа:
1:begin //Если в переменной 1 то
Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.G oodLabel.Caption)+1); //Увеличиваем Label с кол-вом гудов
Append(GoodFile); //открываем файл
Writeln(GoodFile, slog+';'+spass); //Добавляем строчку (знакомо с паскаля)
Closefile(GoodFile); //Закрываем файл
Form1.LogMemo.Lines.Add(slog+';'+spass); //Выводим аккаунт
Form1.Proc.Progress:=Form1.Proc.Progress+1; //отображаем процесс
end;
2:begin //Если в переменной 2 то
Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.Ba dLabel.Caption)+1); //Увеличиваем Label с кол-вом bad'ов
Form1.Proc.Progress:=Form1.Proc.Progress+1; //Продвигаемся =)
end;
end;
end;
Form1.LogMemo.Lines.Add('Success!'); //Если цикл закончился то выводим сообщение
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
tp:=-1; //Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work:=true; //Включаем цикл
proc.MaxValue:=SourceList.Count-1; //Присваиваем общие кол-во аккаунтов
TBruteThread.Create(false); //Запускаем поток
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SourceList.Free; //Сносим переменную
ProxyList.Free; //Сносим переменную
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin //Если выбрали файл то
SourceList.Clear; //Очищаем на всякий случай.
SourceList.LoadFromFile(OpenDialog1.FileName); //Загружаем выбранный файл
Edit1.Text:=OpenDialog1.FileName; //Выводим путь
AllLabel.Caption:=IntToStr(SourceList.Count-1); //Выводим кол-во строк в source
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName); //Указываем начальную папку
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin //Если выбрали файл то
ProxyList.Clear; //Очищаем на всякий случай.
ProxyList.LoadFromFile(OpenDialog1.FileName); //Загружаем выбранный файл
Edit2.Text:=OpenDialog1.FileName; //Выводим путь
ProxyLabel.Caption:=IntToStr(ProxyList.Count-1); //Выводим кол-во прокси
end;
Можете дать, буду благодарен