23.11.2017, 14:01 [+3 UTC]
в нашей команде: 2 283 чел. | участники онлайн: 10 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
23.11.2017, 12:58

Последний вопрос:
23.11.2017, 13:47

Последний ответ:
23.11.2017, 13:54

Последняя рассылка:
23.11.2017, 07:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
27.01.2010, 23:47 »
Гальцов Андрей
Спасибо за Ваше время smile В 3-й ссылке есть кое что полезное, что я возьму. [вопрос № 176349, ответ № 259014]
20.01.2011, 19:41 »
Мироненко Николай Николаевич
Спасибо Вам большое! С помощью статьи проблема решена) [вопрос № 181908, ответ № 265485]
22.02.2011, 16:41 »
WiniHakStyle
Спасибо. Фотографировать тоже буду ей. Взамен старого цифрового фотоаппарата который всего 5MPx [вопрос № 182288, ответ № 265975]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 256
mklokov
Статус: 6-й класс
Рейтинг: 23
Вадим Исаев ака sir Henry
Статус: Старший модератор
Рейтинг: 12

Перейти к консультации №:
 

Консультация онлайн # 138399
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Makavely
Отправлена: 29.05.2008, 00:53
Поступило ответов: 1

Здравствуйте, эксперты. К Вам такой вопрос:
Дан текстовый файл, скажем 123.txt В нем находиться информация следующего рода: Привет, как дела? 4-2 Что нового ? 9*8 раолывраорыворо 4/2 влыоалвра 5+5.

И так Нам нужно выбрать из этого файла все арифметические уравнения, посчитать их, и вывести скажем на форму, в МЕМО.

Помогите, пожалуйста...

Состояние: Консультация закрыта

Ответ # 224769 от Павел Шведенко

Здравствуйте, Makavely!
Открываешь файл, чтение за раз из файла - 1 байт. Считываешь по символьно и проверяешь входит ли символ в множество цифр+арифметичские символы, как только символ входит в множество, флаг(переменная ИСТИНА/ЛОЖЬ) то что найдено уравнение становится ИСТИНА (с этого момента скидываешь в переменную буфер все символы, пока Флаг==ИСТИНА), как только очередной символ не входит в множество Флаг = ЛОЖЬ, снизу в коде после чтения символа и проверки на вхождение в множество проверка что флаг только что стал из ИСТИНА в ЛОЖЬ, тогда выводишь в Memo. Вот весь алгоритм.


Консультировал: Павел Шведенко
Дата отправки: 29.05.2008, 09:08

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.12987 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн