Как массивом покрасить edit'ы?

@kobakoba7 · Регистрация: 21.05.2016

Студворк — интернет-сервис помощи студентам

здравствуйте, у меня такая проблема, на форме: memo и edit 20 штук, хочу чтоб если в мемо в какой строке появится цифра
больше нуля... ну допустим в пятом строке появилось тогда хочу чтоб номер пять эдит покраснел.
надеюсь хорошо объяснил.

@kobakoba7 · 14.07.2016, 19:43 **[ТС]**

друзья почему этот код не работает не подскажите.

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Edit8Change(Sender: TObject);
var
i: integer;
begin
 for i:= 8 to 11 do
 if TEdit(inttostr(i)).Text='' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clsilver;
 if TEdit(inttostr(i)).Text='0' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clYellow;
 if TEdit(inttostr(i)).Text='1' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clRed;
 if TEdit(inttostr(i)).Text='2' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clGreen;
 end;

Добавлено через 1 минуту
Puporev, эта ваш код я хотел переделать но неудачной

@Puporev · 14.07.2016, 20:00

Сообщение от kobakoba7

Puporev, эта ваш код я хотел переделать но неудачной

Покажите где я такое писал?

@kobakoba7 · 14.07.2016, 20:07 **[ТС]**

Сообщение от kobakoba7

Puporev, эта ваш код я хотел переделать но неудачной

я ни сказал что вы писали этот код я написал на аснавание вашего нко неудачно

Добавлено через 1 минуту
просто если сможите поправьте

Добавлено через 59 секунд
на первой странице лучший ответ

@Puporev · 14.07.2016, 20:19

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Edit8Change(Sender: TObject);
var
i: integer;
begin
 for i:= 8 to 11 do
  begin
  if TEdit(FindComponent('Edit'+inttostr(i))).Text='' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clsilver;
  if TEdit(FindComponent('Edit'+inttostr(i))).Text='0' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clYellow;
  if TEdit(FindComponent('Edit'+inttostr(i))).Text='1' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clRed;
  if TEdit(FindComponent('Edit'+inttostr(i))).Text='2' then TEdit(FindComponent('Edit'+inttostr(i))).Color:=clGreen;
 end;
end;

@volvo · 15.07.2016, 17:33

Я бы вот так написал:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Edit8Change(Sender: TObject);
type
  MyColors = (First, Second, Third, Fourth);
const
  Values: array [MyColors] of String = ('', '0', '1', '2');
  Colors: array [MyColors] of tcolor = (clsilver, clYellow, clRed, clGreen);
var
  i: Integer;
  cl: MyColors;
  ed: TEdit;
begin
  for i := 8 to 11 do
  begin
    ed := TEdit(FindComponent('Edit' + IntToStr(i)));
    if Assigned(ed) then
      for cl in [First .. Fourth] do
        if ed.Text = Values[cl] then ed.color := Colors[cl];
  end;
end;

Копипасты меньше в коде...

@northener · 16.07.2016, 00:49

Не по теме:

Сообщение от volvo

Я бы вот так написал:

Странный код от человека не работающего на Дельфи уже сто лет. Но постоянно предлагающего код работающий только в "достаточно" новых версиях Дельфи. :)

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@kobakoba7 3 / 3 / 0 Регистрация: 21.05.2016 Сообщений: 304

	Как массивом покрасить edit'ы? 18.06.2016, 17:50. Показов 2245. Ответов 25 Метки нет (Все метки) здравствуйте, у меня такая проблема, на форме: memo и edit 20 штук, хочу чтоб если в мемо в какой строке появится цифра больше нуля... ну допустим в пятом строке появилось тогда хочу чтоб номер пять эдит покраснел. надеюсь хорошо объяснил. 0