1. Pascal / Говнокод #19963

    −50

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    procedure TForm1.sButton1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then begin
AccountsList.Clear;
AccountsList.LoadFromFile(sOpenDialog1.FileName);
Form1.sButton1.Caption:='[+]Загрузить лист аккаунтов | '+inttostr(AccountsList.Count);
end else
ShowMessage('База не загруженна!!!');
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
if sOpenDialog2.Execute then begin
ProxyList.Clear;
ProxyList.LoadFromFile(sOpenDialog2.FileName);
Form1.sButton2.Caption:='[+]Загрузить лист прокси | '+inttostr(ProxyList.Count);
end;
end;

    Когда просто открыл исход с просьбой о помощи, послал сразу же после sOpenDialog....

    Запостил: AnGel, 08 Мая 2016

    Комментарии (2) RSS

    Добавить комментарий