 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Memo и строки, i need help you 
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
У меня на форме Memo1 я загружаю из FileOpen1 строки, мне нужно удалить вначале каждой строки все символы до определенного, а вдругой функции все символы после определенного, нуждаюсь в помощи как это осуществить?
Зарание спасибо. Это сообщение отредактировал(а) iDenis - 2.1.2005, 22:45 |
|||
|
||||
Загрузка ...
| Illusion Dolphin |
|
|||
 Эксперт  Профиль Группа: Участник Клуба Сообщений: 1198 Регистрация: 3.5.2003 Репутация: 36 Всего: 63 |
var stroka:string;
stroka:=Memo1.text; 1) Delete(stroka,1,do_kakogo_n_simvola_udalit); (если нужно до определённого символа (не по номеру), то тогда возьми функцию strpos(stroka,'Ы'), которая возвратит номер.) 2) Delete(stroka,s_kakogo_n_simvola_udalit,Length(stroka)-kakogo_n_simvola_udalit); (вроде так) Memo1.Text:=stroka; -------------------- В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен. Шифрование и организация фотографий - Photo Database 4.5 |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
2Illusion Dolphin Спасибо.
Вот только:
Вот только новая проблема strpos(Str,'Ы') тут ошибка, т.к. Str:string, а функция работает при PAnsiChar. Ваши предлоения по решению этой проблемы хотелось бы выслушать!  |
|||
|
||||
| Alex |
|
|||
 Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 80 Всего: 162 |
-------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
2 Alex
Error Incompatible types или я что то не допонял? |
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 80 Всего: 162 |
-------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
2 Alex
Спасибо конечно ваш пример безусловно работает, но вот код что я выше привел мне нужно чтобы он работал, там нужно чтобы strpos(Str,'Ы') возвращал номер символа этого, если знает кто как найти и получить номер символа другим способом желательно работать с :String. |
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 80 Всего: 162 |
Так понятно приехали. Давайте по порядку начнем с того, что приведенный выше ваш код не сделает то, что вы хотите. Т.к. вы хотите удалить из каждой строчки.
Теперь у меня возникает два вопроса: 1. Поиск символа должен быть с учетом регистра или без него? 2. Вы хотите удалить до этого символа или включая этот символ? -------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
Ну и конечно рабочий вариант приходит лишь после того как переберешь все сложные варианты на ум приходит простой:
Всем спасибо кто помогал! Это сообщение отредактировал(а) iDenis - 3.1.2005, 01:20 |
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 80 Всего: 162 |
Тогда уж:
-------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| iDenis |
|
||||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
Почему? Мой вариант работает как на дрожях  |
||||
|
|||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 80 Всего: 162 |
Я бы сказал так, если код на 1 день то можно и pos оставить, а если хочется, чтобы код был уже нормальный и в один прекрасный момент не рухнул, то лучше все-таки мой написать т.к. Pos не обрабатывает многобайтовые символы. -------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
2 Alex
Я еще до твоего ответа написал как ты сказал, т.к. думаю старожилы форума всяко дельнее в кодинге чем юнцы   |
|||
|
||||
| iDenis |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 2.1.2005 Репутация: нет Всего: нет |
Новая задача: Нужно удалить пустые строки из Memo1, помогите
|
|||
|
||||
| Pakshin A. S. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
1) Один топик - один вопрос!!!
2)
Что-то в этом духе... Это сообщение отредактировал(а) Pakshin A. S. - 5.1.2005, 20:36 |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0532 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |