Строка наоборот
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
здраствуйте! У меня такая задача. Довольно простая, но сколько не думал, не смог додумать: Есть текстовое поле Edit1, из него нужно взять текст и в Label1 занести этот текст наоборот. Например, Текст Edit1, а должно получиться 1tidE. Заранее спасибо
Я знаю, что ничего не знаю. Но остальные не знают даже этого
Если ничего не путаю, то
st2:=0;
for i:=1 to length(st1) do
st2:=st2+st1[length(st1)-i+1]
st1 - иходный текст
st2:=0;
for i:=1 to length(st1) do
st2:=st2+st1[length(st1)-i+1]
st1 - иходный текст
Так точно ошибку выдаст, наверное, имелось в виду, st2:='';st2:=0;
А вообще можно и наоборот:
for i:=length(st1) downto 1 do
st2:=st2+st1;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Хыиуду писал(а):st2:=0]
Так точно ошибку выдаст, наверное, имелось в виду, st2:='';
А вообще можно и наоборот:
for i:=length(st1) downto 1 do
st2:=st2+st1;
Спасибо большое, попробовал, все заработало. Моя ошибка состояла в том, что я в st1[n] пытался записать что-от другое, то есть просто хотел поменять символы местами, да не вышло
Я знаю, что ничего не знаю. Но остальные не знают даже этого