Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > замена букв

Автор: MMMMMM 1.6.2012, 19:19

помогите написать программу которая в указанном слове заменяет 2 букву на 5, и наоборот

Автор: Данкинг 1.6.2012, 19:34

Код


stroka='словослово'
l1=stroka[2];
l2=stroka[5];
result:=stroka[1]+l2+copy(stroka,3,2)+l1+copy(stroka,6,length(stroka));

Не проверял, но должно работать. smile

Автор: XperT 1.6.2012, 21:23

Данкинг, а зачем такие сложности?

Код


tmp := str[2];
str[2] := str[5];
str[5] := tmp;

P.S. Проверка длины строки будет не лишней

Автор: northener 2.6.2012, 01:37

Автор просил программу, а не алгоритм!
smile