Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //Копирование аккаунтов
- IF pos(':', Accounts[CurAcc])<>0 THEN
- BEGIN
- IF Insform.deldom.Checked = TRUE THEN
- BEGIN //Логин:пароль без домена
- Password:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
- Login:=Copy(Accounts[CurAcc], 1, Pos('@',Accounts[CurAcc])-1);
- end
- ELSE
- BEGIN //Логин:пароль c доменом
- Password:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
- Login:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
- end;
- end
- ELSE
- BEGIN
- IF Insform.deldom.Checked = TRUE THEN
- BEGIN //Логин;пароль без домена
- Password:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc])); //Копируем пароль всё что после разделителья
- Login:=Copy(Accounts[CurAcc], 1, Pos('@',Accounts[CurAcc])-1); //Копируем всё что до собачки
- end
- ELSE
- BEGIN //Логин;пароль c доменом
- Password:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
- Login:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement