сдвинуть символы в строке

[danil123]

как из строки xyz сделать строку yza, т.е. сдвинуть все символы на 1?

[Serge_Bliznykov]

из строки "XYZ" нельзя получить строку "YZA", можно "YZX".
если так и нужно, то:

s := Copy(s,2,Length(s)-1) + Copy(s,1,1);

[danil123]

Сообщение от Serge_Bliznykov

из строки "XYZ" нельзя получить строку "YZA", можно "YZX".
если так и нужно, то:

Я не о том, нужно заменить каждый символ на следующий за ним по алфавиту и учесть, что после z будет a, т.е. алфавит цикличен

[Аватар]

Д7. Для кириллицы так не пойдёт - символы не подряд

procedure TForm1.Button1Click(Sender: TObject);
const cAlpfaU = ['A'..'Z'];
      cAlpfaL = ['a'..'z'];
var s: string;
    i: Integer;
    c: Char;
begin
  s:=Edit1.Text;
  for i:=1 to Length(s) do
    if s[i] in cAlpfaU then begin
      c:=Chr(Ord(s[i])+1);
      if c in cAlpfaU then s[i]:=c else s[i]:='A';
    end
    else if s[i] in cAlpfaL then begin
      c:=Chr(Ord(s[i])+1);
      if c in cAlpfaL then s[i]:=c else s[i]:='a';
    end;
  Edit1.Text:=s;
end;

[danil123]

Сообщение от Аватар

Д7. Для кириллицы так не пойдёт - символы не подряд

procedure TForm1.Button1Click(Sender: TObject);
const cAlpfaU = ['A'..'Z'];
      cAlpfaL = ['a'..'z'];
var s: string;
    i: Integer;
    c: Char;
begin
  s:=Edit1.Text;
  for i:=1 to Length(s) do
    if s[i] in cAlpfaU then begin
      c:=Chr(Ord(s[i])+1);
      if c in cAlpfaU then s[i]:=c else s[i]:='A';
    end
    else if s[i] in cAlpfaL then begin
      c:=Chr(Ord(s[i])+1);
      if c in cAlpfaL then s[i]:=c else s[i]:='a';
    end;
  Edit1.Text:=s;
end;

Спс, работает