|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.04.2012, 18:13 | #1 |
Форумчанин
Регистрация: 14.10.2011
Сообщений: 137
|
Не могу найти простейший исходник разделяющий текст
Ищу простейший исходник который бы мог разделить загруженный текст с текстового файла в memo1 и memo2.
То что разделяет текст : (двоеточие) - что до :(двоеточия) пишется в memo1 что после двоеточия в мемо2. Текстовый файл внутри себя содержит такой текст. Код:
|
19.04.2012, 18:50 | #2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
19.04.2012, 19:29 | #3 |
Форумчанин
Регистрация: 14.10.2011
Сообщений: 137
|
можете пожалуйста в проект завернуть, ото у меня ошибки вылетают (delphi7)
|
20.04.2012, 11:02 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
на кнопку "загрузить TXT"
Код:
|
20.04.2012, 22:06 | #5 |
Форумчанин
Регистрация: 14.10.2011
Сообщений: 137
|
Serge_Bliznykov, блин))) Я Вас люблю ))) спасибо большое ))
|
20.04.2012, 22:45 | #6 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Или можно использовать TStringList NameValueSeparator и Name/Values.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
21.04.2012, 07:18 | #7 |
Форумчанин
Регистрация: 14.10.2011
Сообщений: 137
|
|
21.04.2012, 08:44 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
я не проверял (можете это сделать самостоятельно), но я думаю, что в вашем случае разницы не будет.
p.s. не удивлюсь, если в реализации данного подхода внутри лежат те же самые функции POS и COPY только их использование скрыто (для удобства использования) от программиста p.s. посмотрел реализацию в TStrings. Там всё ещё хуже, чем я думал. для Name (GetName()) действительно используется AnsiPos, но для Value ( GetValue() - используется поиск Name перебором всех строк ). Код:
проверку оставляю на совести сомневающихся! Последний раз редактировалось Serge_Bliznykov; 21.04.2012 в 08:53. |
25.04.2012, 01:27 | #9 |
Форумчанин
Регистрация: 14.10.2011
Сообщений: 137
|
Методам тыка, обнаружил что скорость загрузки из текстового файла в компонент ListBox на много превышает чем с компонентом memo.
По этому решил немного разнообразить и попробовать перевоплатить этот код (с выше) под компонент listbox. Код:
При указании на listbox оно либо компилировалось и загружало криво либо вообще не загружало текстовый файл. Прошу о помощи)) Я хз как правильно переделать и не утратить смысл разделения слов из-за символа. |
25.04.2012, 02:04 | #10 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
о! так Вы за скоростью гонетесь?!
тогда попробуйте такой код: Код:
тогда замените строчки Memo1.Lines.Text := ts1.Text; Memo2.Lines.Text := ts2.Text; на Код:
Последний раз редактировалось Serge_Bliznykov; 25.04.2012 в 02:09. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу найти исходник pascal | BeaU | Помощь студентам | 17 | 07.02.2012 00:53 |
Не могу найти исходник программы (которая требует логин и пароль для доступа) | makar3000 | Софт | 0 | 01.12.2011 16:37 |
Не могу найти исходник программы (которая требует логин и пароль для доступа) | makar3000 | БД в Delphi | 1 | 01.12.2011 03:11 |
Нигде не могу найти исходник проги для создания фоторобота | CorruptSoul | Свободное общение | 2 | 11.03.2008 15:54 |
Помогите! Не могу откоректировать исходник!!! | DzSoft | PHP | 1 | 30.09.2007 17:42 |