Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Поиск в программе

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 16.05.2012, 21:29   #1
 Разведчик
Аватар для *Хalyava*
 
*Хalyava* на правильном пути
Регистрация: 16.10.2011
Сообщений: 9
Популярность: 92
Сказал(а) спасибо: 8
Поблагодарили 12 раз(а) в 8 сообщениях
 
По умолчанию Поиск в программе

здравствуйте, есть проблема
имеются числа и строки в переменной такого вида: Название : (слово) : Год (цифра): Время (цифра)

мне нужно следующее :

при вводе в edit1 какого либо числа (года) должно отображаться вся строка из переменной в таком же виде как и выше.
Пример: В поле edit пишем: 1945

В memo выводится:

ВОВ : 1945-1946 : 21:00 (это пример)

в общем при вводе года мне нужны все строки с таким годом в memo

Помогите пожалуйста это реализовать))
  Ответить с цитированием
Старый 16.05.2012, 21:57   #2
Заблокирован
 Пехотинец
Аватар для Skrillex3
 
Skrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компании
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
Отправить сообщение для Skrillex3 с помощью Skype™
 
По умолчанию Re: Поиск в программе

Цитата:
for i := 0 to memo1.lines.count
begin
if pos(memo1.lines[i],Edit1.text,length(memo1.lines[i])) then //как там точно пос записывается уже не помню ,но думаю идея понятна
begin
Edit2.text:= Memo1.lines[i];
break;
end;
end;

вот так
  Ответить с цитированием
Старый 17.05.2012, 16:02   #3
 Разведчик
Аватар для *Хalyava*
 
*Хalyava* на правильном пути
Регистрация: 16.10.2011
Сообщений: 9
Популярность: 92
Сказал(а) спасибо: 8
Поблагодарили 12 раз(а) в 8 сообщениях
 
По умолчанию Re: Поиск в программе

выводит только строки в которых возраст одинаковый:

.. Название: 123 : Возраст: 1-3 : Стоимость: 123 /
.. Название: 123 : Возраст: 1-6 : Стоимость: 123 /
.. Название: 435 : Возраст: 1-3 : Стоимость: 213 /

есть 3 таких строки. из них выводит первую и последнюю.

\\\\\\\\\\\\\\\\\\

а мне нужно выводить те строки, возраста которых попадают попадают в диапазон цифры в edit . Пример:
пишу в edit: 2
программа должна вывести все строки.

вот предложенный код: (немного его переделал)

Код:
for i := 0 to memo1.Lines.Count do
 begin
 z:=StrToInt(v);
b:=StrToInt(n);
if StrToIntDef(edit4.Text, 0)  in [z..b] then
begin

 if pos(v+'-'+n ,memo1.Lines[i]) > 0 then 
 begin
 listbox1.Items.Add( memo1.Lines[i]);
 //break;
 end;
 end;
P.s. в переменных v и n содержаться цифры возрастов.

v - первая цифра
n - вторая

v+'-'+n - (Пример: 1-3)
  Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Префикс в программе kritin2011 Общение и обсуждение Counter-Strike 7 23.04.2011 10:35

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 16:24.

Пишите нам: forum@zhyk.ru
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net