Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.11.2007, 22:51
~ SaM ~ ~ SaM ~ вне форума
Начинающий
 
Регистрация: 05.01.2007
Адрес: Днепропетровск
Сообщения: 141
Репутация: 25
По умолчанию В чем ошибка?

Есть форма, на которой 48 эдитов и 148 лэйбэлов, создающихся в Ран-Тайм. Каждому эдиту "принадлежит" три лэйбэла. После нажатия на кнопку, необходимо найти в ListBox'е введеннок слово в эдит, и записать в Label'ы последующие 3 строки, и так надо до 48 эдитов сделать!ниже код, который я написал, но почему-то не получается! Буду признателен за помощь!
Код:
for i:=1 to 48 do begin
s:=TEdit( FindComponent( Format( 'Edit%d', [i] ) ) ).Text;
for ii:=0 to listbox1.Items.Count-1 do begin
if s=listbox1.Items.Strings[i]  then begin
j:=j+1;
TLabel( FindComponent( Format( 'Label%d', [j] ) ) ).Caption:=listbox1.Items.Names[ii+1];
TLabel( FindComponent( Format( 'Label%d', [j+1] ) ) ).Caption:=listbox1.Items.Names[ii+1];
TLabel( FindComponent( Format( 'Label%d', [j+2] ) ) ).Caption:=listbox1.Items.names[ii+1];
j:=i+3;
end;
end;
end;

Последний раз редактировалось ~ SaM ~, 20.11.2007 в 22:53.
Ответить с цитированием
  #2  
Старый 21.11.2007, 12:20
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Не проверял, но, возможно, вместо i надо ii в строке
if s=listbox1.Items.Strings[i] then begin
Ответить с цитированием
  #3  
Старый 21.11.2007, 12:29
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Точно! Вот здесь должны совпадать переменные:
Код:
for ii:=0 to listbox1.Items.Count-1 do begin
if s=listbox1.Items.Strings[i]  then begin
__________________

Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter