Страница 1 из 1
Строка наоборот
Добавлено: 06 апр 2005, 19:14
senator
здраствуйте! У меня такая задача. Довольно простая, но сколько не думал, не смог додумать: Есть текстовое поле Edit1, из него нужно взять текст и в Label1 занести этот текст наоборот. Например, Текст Edit1, а должно получиться 1tidE. Заранее спасибо
Добавлено: 06 апр 2005, 19:47
YurikGL
Если ничего не путаю, то
st2:=0;
for i:=1 to length(st1) do
st2:=st2+st1[length(st1)-i+1]
st1 - иходный текст
Добавлено: 07 апр 2005, 19:34
Хыиуду
st2:=0;
Так точно ошибку выдаст, наверное, имелось в виду, st2:='';
А вообще можно и наоборот:
for i:=length(st1) downto 1 do
st2:=st2+st1
;
Добавлено: 07 апр 2005, 21:56
senator
Хыиуду писал(а):st2:=0]
Так точно ошибку выдаст, наверное, имелось в виду, st2:='';
А вообще можно и наоборот:
for i:=length(st1) downto 1 do
st2:=st2+st1;
Спасибо большое, попробовал, все заработало. Моя ошибка состояла в том, что я в st1[n] пытался записать что-от другое, то есть просто хотел поменять символы местами, да не вышло 