|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Переворот символов
Здравствуйте! В "Edit1" находится следующие крякозябры "7156664E" как можо перевернуть последовательность символов наоборот, тобиш что-бы получилось вот так "4E665671" ?
|
#2
|
||||
|
||||
Как-то так
Код:
L := Length(Edit1.Text); SetLength(S, L); for I := 1 to L do S[L-I+1] := Edit1.Text[i]; Edit1.Text := S; |
#3
|
||||
|
||||
Админ! Забавный баг. Я пишу Text[i], где I с большой буквы, а в результате вижу с маленькой. Это нормально или злобные вирусы запускают LowerCase? Тэг чтоль какой?
|
#4
|
||||
|
||||
Прочитай внимательнее порядок символов в результате в посте ТС.
jmp $ ; Happy End! The Cake Is A Lie. |
#5
|
||||
|
||||
Намёк на курсив? Так что, у итальянцев нет заглавных букв?
|
#6
|
||||
|
||||
Я вообще-то про алгоритм. ТС требуется:
Цитата:
Цитата:
jmp $ ; Happy End! The Cake Is A Lie. |