|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.03.2011, 16:49 | #1 |
Пользователь
Регистрация: 23.06.2008
Сообщений: 86
|
Memo имеет текст который нужно вывести здесь же в обратном направлении
Добрый день.
У меня есть текст в Memo (любой, с абзацами). Нужно вывести здесь же все в обратном направлении. Метод AnsiReverseString компилятору неизвестен. |
28.03.2011, 17:01 | #2 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Код:
|
28.03.2011, 17:04 | #3 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Только сделайте for i := Length(s) downto 1 do
|
28.03.2011, 17:09 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Так абзацы потеряются.
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
28.03.2011, 17:09 | #5 |
Пользователь
Регистрация: 23.06.2008
Сообщений: 86
|
Спасибо.
А функции нет? |
28.03.2011, 17:14 | #6 | |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Цитата:
s1 := s1 + s[i]; Получился между абзацами двойной перевод строки. Тогда дописал if s[i]<> #13 then Все заработало нормально. Что за хрень? |
|
28.03.2011, 17:16 | #7 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Возможно там кроме #13 еще и #10 есть
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
28.03.2011, 17:16 | #8 |
Пользователь
Регистрация: 23.06.2008
Сообщений: 86
|
Проверил. При нажатии кнопки нулевая строка не заполняется
|
28.03.2011, 17:43 | #9 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Так уберите лишние переводы строк, если они не требуются, обычной функцией Trim()
|
28.03.2011, 17:54 | #10 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Можно сделать и так:
1. Ищем любой символ, кроме #0, которого нет в TMemo, и запоминаем его 2. Заменяем все #$D#$A на этот символ 3. Запускаем предложенную Вам функцию реверса 4. Заменяем все вхождения нашего символа на #$D#$A 5. Смотрим результат... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
код ассемблер который имеет фунцию команды "dir"(MS-DOS) | anonim90 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 14.12.2010 19:27 |
Создание собственного класса. Который считает время(нужен секундамер) и имеет массив данных int | ciberlex404 | Общие вопросы C/C++ | 0 | 04.06.2010 20:12 |
Найти студента который имеет среднее количество пропусков. | LUKICH | Фриланс | 1 | 01.06.2010 09:15 |
Вывести числа в обратном порядке | asmcc | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 14 | 20.02.2010 11:46 |
Народ как загрузить текст в Memo из готового фала, который указан в ListBox?) | OPF_Nik | Общие вопросы Delphi | 7 | 09.11.2009 23:13 |