24.08.2017, 22:23
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
function ReverseLoginPassword(AStr : String) : String;
var
SemicolPos : Integer;
begin
SemicolPos := Pos(';',AStr);
If SemicolPos < 1 Then Raise Exception.Create('Separator not found.');
Result := Copy(AStr,SemicolPos+1,Length(AStr)-SemicolPos+1) + ';' + Copy(AStr,1,SemicolPos-1);
end;
|