Advertisement
Guest User

Untitled

a guest
Aug 17th, 2013
305
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
DCS 1.37 KB | None | 0 0
  1. //Копирование аккаунтов
  2.  
  3. IF pos(':', Accounts[CurAcc])<>0 THEN
  4.  BEGIN
  5.      IF Insform.deldom.Checked = TRUE THEN
  6.          BEGIN   //Логин:пароль без домена
  7.          Password:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
  8.          Login:=Copy(Accounts[CurAcc], 1, Pos('@',Accounts[CurAcc])-1);
  9.          end
  10.          ELSE
  11.          BEGIN   //Логин:пароль c доменом
  12.          Password:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
  13.          Login:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
  14.          end;
  15.      end
  16.          ELSE
  17.          BEGIN
  18.       IF Insform.deldom.Checked = TRUE THEN
  19.          BEGIN    //Логин;пароль без домена
  20.          Password:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));   //Копируем пароль всё что после разделителья
  21.          Login:=Copy(Accounts[CurAcc], 1, Pos('@',Accounts[CurAcc])-1);  //Копируем  всё что до собачки
  22.          end
  23.          ELSE
  24.          BEGIN     //Логин;пароль c доменом
  25.          Password:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
  26.          Login:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
  27.          end;
  28.  end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement