народ плз хелп

[Fanis]

работа со строками. Написать программу, которая заменяет каждый символ строки, введеный пользователем на символ с кодом, меньшим на единицу(т.е придедущий символ). Для первой буквы алфавита- поменять на последнюю букву.(например"Моя строка"=>"лню рспнйя")

[Dirt]

Привет.
Что уже сделали? выкладывайте

[Fanis]

привет, если чесно то вообше ничего не сделали

[Sasha_Smirnov]

А я вот написал... правда, в Ворде, ну, может, поможет? По крайней мере — чтобы посмотреть, как оно работает. Единственное отличие — первая буква заменяется тоже символом с на единицу меньшим кодом (а не на Я).

Мой вариант.

А в Делфи это даже проще! Только с русскими буквами там вроде бы проблемы?.. (У меня нет среды Дельфи.)

[Fanis]

а можно тоже самое, только на дельфи?)

[Dirt]

Например так:

alfavit:="абвг...";
for i:=1 to length(str) do
 begin
   poz:=pos(str[i],alfavit);
   if poz=1 then
     str[i]:=alfavit[length(alfavit)]
   else
     str[i]:=alfavit[poz-1];
 end;

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
 s:=Edit1.Text;
 for i:=1 to length(s) do s[i]:=chr(Ord(Edit1.Text[i])-1);
 Edit1.Text:=s;
end;