[4sasha4]

есть memo там аккаунты вида логин:пароль, нужно чтобы программа вошла в первый аккаунт сделала определенные действия, а потом во-второй и так по циклу. Как провернуть? есть код входа и т.д

[Alegun]

Самое простое, как раз в цикле перебирать строчки мемо, пока они не кончатся. Например так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;