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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2009, 12:07   #1
Temka
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 17
По умолчанию список и прогресс бар

как сделать так. чтобы при написании слова в Эдит, это слово начало искаться в списке, а параллельно поиску шел процусс в Прогресс баре.

Код:
procedure TForm1.Edit2Change(Sender: TObject);
var i, j: integer;
 str: string;
 br: boolean;

begin
Timer1.Enabled:=true;
if ListBox1.Items.Count <> 0 then
  begin

  str := Edit2.Text;
  ListBox1.ItemIndex := 0;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin



   for j := 0 to Length(str) - 1 do
if ListBox1.Items[ListBox1.ItemIndex][j + 1] = str[j + 1] then
    begin

     br := true;
end
    else
    begin
     br := false;
     Break;
    end;
   if br then
   begin
    ListBox1.ItemIndex := i;
    Break;
   end
   else ListBox1.ItemIndex := ListBox1.ItemIndex + 1;



  end;
 end;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:= ProgressBar1.Position+1;
if progressBar1.Position>=ProgressBar1.Max then
begin
Timer1.Enabled:=false;
end;
end;
у меня заканчивается поиск слова, а только потмо начинается процесс в прогресс баре

Последний раз редактировалось Stilet; 02.06.2009 в 13:19.
Temka вне форума Ответить с цитированием
Старый 02.06.2009, 12:20   #2
Lime
Форумчанин
 
Аватар для Lime
 
Регистрация: 10.02.2009
Сообщений: 815
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
form1.ProgressBar1.Max := memo1.Lines.Count;
for i := 0 to memo1.Lines.Count do
begin
if (edit1.text = memo1.lines[i]) then 
showmessage('Номер : '+inttostr(i)+' Значение : ' + memo1.Lines[i]);
progressbar1.Position := i;
end;
end;
Аналогично с массивами с Listbox с StringList итд итп ...
Прогрессбар показывает состояние поиска.
//Пс чтото у меня компилятор упал (((

Последний раз редактировалось Lime; 02.06.2009 в 12:26.
Lime вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пропал Яндекс бар и т.д. в Int.Explorer nisoldatov Свободное общение 2 03.04.2009 22:49
Данные-проверка-список (список на другом листе) Inbox Microsoft Office Excel 7 26.12.2008 01:43
После нажатия старт идёт типа прогресс и отправляет скачать полную версию программы aminov Фриланс 13 28.07.2008 16:34
Прогресс закачки mish666 Работа с сетью в Delphi 7 21.01.2008 15:50