[AlexBerg001]

Здравствуйте, в общем вопрос такой, как сделать чтобы программа загружала список из текстового файла с разделителем и брала данные оттуда. Помогите, что-то никак не могу сам понять. В этом варианте она берет данные из окон sEdit. Вот код если что:

Код:

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)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sMemo1: TsMemo;
    sButton1: TsButton;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    sEdit3: TsEdit;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sLabel5: TsLabel;
    sMemo2: TsMemo;
    sButton2: TsButton;
    sOpenDialog1: TsOpenDialog;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form2: TForm2;
  Accounts: TStringList;

implementation

{$R *.dfm}


procedure TForm2.sButton1Click(Sender: TObject);
  var
  HTML: string;
begin
 HTML:=IdHTTP1.Get('http://******&Login='+sEdit1.Text+'&Password='+sEdit2.Text);
 if pos ('class="button__valign"', HTML)<>0 then
  begin
   HTML:=IdHTTP1.Get('https://******/search/gosearch?q%5Fquery='+sEdit3.Text+'&q%5Ffolder=all');
   if pos ('class="gosearch-message"', HTML)<>0 then
    begin
     sMemo2.Lines.Add(sEdit1.Text+':'+sEdit2.Text);
    end
    else
    begin
     sMemo1.Lines.Add(sEdit1.Text+':'+sEdit2.Text);
    end;
  end
else
begin
sMemo2.Lines.Add(sEdit1.Text+':'+sEdit2.Text);
end;

end;


end.

Админ: Пользуемся тегами для оформления кода!