|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2007, 15:58 | #1 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
Обработка текста
Вобщем так : мне нужно реализовать простую обработку текста!
чтобы например текст из переменной типа Tstring например "10;5;Привет" (Безкавычек) разделялся на 3 переменные ! 1-вая типа integer (у меня 10) 2-я тоже integer (5) 3-я String(Привет). Вот между ними какойнибудь знак разделитель... я например поставил ';' . Но чтобы процедура проверки и преобразования не нагружала комп т.к будет использоватся (если паможете канешо ) очень часто... вот начало : var e,Msg:string; MsgNumb,MsgCode:integer; begin e:='010;5;Привет'; ... ... ... В конце должно получится Msg='Привет' MsgCode='5' MsgNumb='10' У каво какие мысли ? напишите плс полностью ---
|
05.10.2007, 16:20 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Запросто: В цикле дозаписывай в i-й элемент массива очередной символ из строки пока не встретишь разделитель, тогда проанализишь записанное на то что это, число али неа. Ну и так до конца строки.
I'm learning to live...
|
05.10.2007, 16:39 | #3 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
Можно плс поподробнее. тоесть текст гатовый....плис
---
|
05.10.2007, 16:39 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот примерчик на раздумья:
Код:
I'm learning to live...
|
05.10.2007, 17:20 | #5 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
а можно написать функцию
function(text:string); --- --- --- 1переменная:=элемент1.текст 2переменная:=элемент2.текст 3переменная:=элемент3.текст ---
|
05.10.2007, 19:25 | #6 |
Форумчанин
Регистрация: 04.10.2007
Сообщений: 106
|
Код:
Дальше получив разбивку на слова начинаешь анализ, для чисел есть функция вроде TryStrToInt, вернет true если строку можно преобразовать в integer. А раз можно значит и преобразуй. Хотя зависит от того что замышляешь.
Все не так плохо, как вам кажется, на самом деле все гораздо хуже.
http://delphiworld.narod.ru/dw.html - 5000 статей!!! удобный поиск, оффлайн сборник, рекомендую всем Последний раз редактировалось Surgeon; 05.10.2007 в 19:31. |
05.10.2007, 20:46 | #7 |
Заблокирован
Регистрация: 29.09.2007
Сообщений: 106
|
Скинь свой исходник на форум! То что у тебя получается
|
06.10.2007, 15:25 | #8 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
Илюха ты мне ???
---
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обработка текста | JRcoker | Общие вопросы Delphi | 5 | 31.07.2008 23:35 |
обработка текста | pvleo | Фриланс | 4 | 14.07.2008 05:19 |
Обработка текста | Absent | Помощь студентам | 2 | 20.05.2008 23:17 |
Обработка текста | Absent | Помощь студентам | 1 | 10.05.2008 19:56 |
Обработка текста. Посмотрите | Absent | Помощь студентам | 3 | 09.04.2008 23:30 |