Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2021, 19:11   #1
MixanMM
Форумчанин
 
Регистрация: 09.06.2009
Сообщений: 151
По умолчанию Поиск по тексту

Добрый день коллеги, подскажите пожалуйста, как правильно произвести поиск по тексу?
После продажи, формируется текст такого вида:
Цитата:
ОО
Мансийск, Ханты-Мансийский АО - Юг
ул. \дом \
т. 34
01.07.21 20:31 ЧЕК 0010
ПАО СБЕРБАНК Возврат
Терминал: 23780866 Мерчант: 580000030313
VISA A0000000031010
КартаC) ************7211
Клиент: ********/OL**
Сумма (Руб): 1.00
Комиссия за операцию - 0 Руб.
Номер ссылки: 118287359123


________________________________
подпись клиента
39A44132195AB35B2D69B8178E6F39263B1 32D6A
Срок возврата до 5 дней.
Проверьте зачисление в Отчете по карте
=================================== =====
У меня он вставляется как текст таким методом
Код:
Form2.Memo1.Lines.Add( PinPad.Cheque) ;
Как можно произвести поиск по этому тексту некоторых данных, т.к их нужно внести в БД ?
И как можно вывести на печать на ККМ? ККМ для печати использует команду :
Код:
Driver.StringForPrinting := '';
Driver.PrintString();

Последний раз редактировалось MixanMM; 02.07.2021 в 14:16.
MixanMM вне форума Ответить с цитированием
Старый 02.07.2021, 22:09   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,813
По умолчанию

в цикле собрать все строки поля Memo в одну строку и потом уже в этой одной стоке искать нужный текст процедурой Pos().
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 04.07.2021, 04:32   #3
D1973
Пользователь
 
Регистрация: 04.04.2018
Сообщений: 28
По умолчанию

Цитата:
Сообщение от NetSpace Посмотреть сообщение
в цикле собрать все строки поля Memo в одну строку
Memo1.Text - это уже строка, зачем цикл-то?
Да и вообще, а надо ли весь этот текст отображать на самом деле? Или надо только данные выдернуть? Если второе - работать сразу с полем объекта PinPad, который, судя по всему, имеет тип String

Цитата:
Сообщение от MixanMM Посмотреть сообщение
Как можно произвести поиск по этому тексту некоторых данных
Как-то так, как уже сказали - используя функцию Pos(). Был бы более конкретный вопрос - был бы более конкретный ответ.
D1973 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск по тексту в Delphi 7 ииииввваан Помощь студентам 0 17.01.2013 21:13
Индексированный поиск по тексту Аночка Visual C++ 0 19.06.2012 09:03
Поиск по тексту в Memo Asblue Помощь студентам 0 28.11.2010 12:59
поиск по тексту Cmon Помощь студентам 2 16.07.2010 03:08
Поиск по тексту khofa Общие вопросы Delphi 6 08.02.2010 11:18