[AlexBerg001]

Отредактировал, а насчёт разделителя: разные могут быть разделители в загружаемом списке

[Alegun]

Но структура полей не меняется: логин + разд. + пароль?

[AlexBerg001]

Да-да, только разделитель или : или ;

[Alegun]

Вот набросок, может что и подойдёт

[AlexBerg001]

Что-то я не въехал честно говоря в ваш код, пытался вставить свою интернетную часть, но что-то не заработало у меня. В общем вот я мой проект вам скину, мне кажется вы не совсем так меня понимаете или я вас))) Запаролил на всякий случай

[cerbernar]

Привет, решал давеча похожую задачу с использованием stringlist и CommaText.

Для корректной работы пришлось текст в кавычки заключить, а разделитель ",".

Может поможет

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Button4Click(Sender: TObject); var   ts: tstringlist;   S: string;   Tf: Textfile; begin   Ts := Tstringlist.create;   Assignfile(tf, 'путь_к_файлу');   Reset(tf);   ComboBox2.Items.Clear;   ComboBox3.Items.Clear;   while not eof(tf) do    begin     Readln(tf,S);     Ts.CommaText := S;     ComboBox2.Items.Add(Ts[0]);     ComboBox3.Items.Add(Ts[1]);    end;   closefile(tf);   ts.free; end;

UPD
Чтобы прокатило с разделителем ":"

вместо Ts.CommaText := S; в коде выше вставить

Код:

1 2	Ts.Delimiter := ':'; Ts.DelimitedText := S;

[AlexBerg001]

Ну в общем, создал поток и сделал синхронизацию, вроде всё работает, но осталось ещё несколько проблем:
1)прогрессбар не доходит до конца;
2)как остановить выполнение программы по нажатию кнопки Стоп?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, sSkinManager, StdCtrls, sButton, ComCtrls, acProgressBar, sMemo,   sLabel, sEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,   IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,   IdCookieManager, IdIntercept, IdCompressionIntercept, sDialogs;   type   TForm2 = class(TForm)     sMemo1: TsMemo;     sButton1: TsButton;     IdHTTP1: TIdHTTP;     IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;     sEdit3: TsEdit;     sLabel3: TsLabel;     sLabel4: TsLabel;     sLabel5: TsLabel;     sMemo2: TsMemo;     sButton2: TsButton;     sOpenDialog1: TsOpenDialog;     sLabel6: TsLabel;     sLabel7: TsLabel;     sLabel8: TsLabel;     sLabel9: TsLabel;     sSkinManager1: TsSkinManager;     sProgressBar1: TsProgressBar;     sButton3: TsButton;     procedure sButton1Click(Sender: TObject);     procedure sButton2Click(Sender: TObject);     { Private declarations }   public     { Public declarations }   end;   type   TMyThread = class(TThread)   private   protected   procedure Good;   procedure Bad;   procedure ProgressBar;   procedure MemoClear;     procedure Execute; override; end;     var   Form2: TForm2;   Accounts: TStringList;   Login, Password, del: string;   ProgressPos: integer;   implementation   {$R *.dfm}     procedure TForm2.sButton2Click(Sender: TObject); begin Accounts:=TStringList.Create; if sOpenDialog1.Execute then begin   Accounts.Clear;   sMemo1.Lines.Clear;   sMemo2.Lines.Clear;   Accounts.LoadFromFile(sOpenDialog1.FileName);   sLabel9.Caption:=inttostr(Accounts.Count);   end; if pos(';', Accounts.Strings[0])<>0 then begin   del:=';'; end else begin del:=':';  end; end;     procedure TForm2.sButton1Click(Sender: TObject); begin TMyThread.Create(False); end;     procedure TMyThread.MemoClear; begin  Form2.sMemo1.Lines.Clear;  Form2.sMemo2.Lines.Clear; end;     procedure TMyThread.ProgressBar; begin  Form2.sProgressBar1.Position:=ProgressPos;  Form2.sProgressBar1.Max:=Accounts.Count; end;     procedure TMyThread.Bad; begin  Form2.sMemo2.Lines.Add(Login+del+Password);  Form2.sLabel6.Caption:=inttostr(Form2.sMemo2.Lines.Count); end;     procedure TMyThread.Good; begin  Form2.sMemo1.Lines.Add(Login+del+Password);  Form2.sLabel7.Caption:=inttostr(Form2.sMemo1.Lines.Count); end;     procedure TMyThread.Execute;   var   HTML: string;   Acc: integer; begin; Synchronize(MemoClear); for Acc := 0 to Accounts.Count-1 do  begin  ProgressPos:=Acc;  Synchronize(ProgressBar);  Login:=copy(Accounts[Acc], 1, pos(del, Accounts[Acc])-1);  Password:=copy(Accounts[Acc], pos(del, Accounts[Acc])+1, MaxInt);  HTML:=Form2.IdHTTP1.Get('http://xxxxxx&Login='+Login+'&Password='+Password);   if pos ('class="button__valign"', HTML)<>0 then   begin    HTML:=Form2.IdHTTP1.Get('https://xxxxxx'+Form2.sEdit3.Text+'&q%5Ffolder=all');    if pos ('class="gosearch-message"', HTML)<>0 then     begin      Synchronize(Bad);     end     else     begin      Synchronize(Good);     end;   end else begin Synchronize(Bad); end;   end;   end;     end.

[AlexBerg001]

С прогрессбаром разобрался и добавил сохранение результатов в файл. Вопрос с остановкой выполнения программы остаётся открытым
Добавил переменную T1: TThread и прописал вот так

Код:

1 2 3 4 5 6 7 8 9

procedure TForm2.sButton3Click(Sender: TObject); begin T1.Terminate; end;   procedure TForm2.sButton1Click(Sender: TObject); begin T1:=TMyThread.Create(False); end;

Вроде бы работает, поправьте если неправильно сделал

[AlexBerg001]

Закройте тему, вопрос уже совсем не соответствует названию