![]() |
|
#1
|
|||
|
|||
![]() есть memo там аккаунты вида логин:пароль, нужно чтобы программа вошла в первый аккаунт сделала определенные действия, а потом во-второй и так по циклу. Как провернуть? есть код входа и т.д
![]() |
#2
|
||||
|
||||
![]() Самое простое, как раз в цикле перебирать строчки мемо, пока они не кончатся. Например так
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; log, pwd: string; begin for i := 0 to Memo1.Lines.Count-1 do begin Log:= Copy(Memo1.Lines[i],1,Pos(':',Memo1.Lines[i])- 1); Pwd:= Copy(Memo1.Lines[i], Pos(':',Memo1.Lines[i])+ 1, Length(Memo1.Lines[i])); ... ShowMessage(Log + ' - ' + Pwd); ... end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |