.ItemIndex в цикле

@STJOHN · Регистрация: 13.01.2013

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

j:=(TEdit(FindComponent('so'+inttostr(i) +'b')).ItemIndex); так не работает;

[Warning] Unit1.pas(115): For loop control variable must be simple local variable
[Error] Unit1.pas(118): Undeclared identifier: 'ItemIndex'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

j:=(so1b.ItemIndex); а так работает

Полный текст:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, XPMan, StdCtrls;
 
type
  TForm1 = class(TForm)
    so1h: TEdit;
    Button1: TButton;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Edit23: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit24: TEdit;
    Edit25: TEdit;
    ComboBox1: TComboBox;
    so1: TLabel;
    vo1: TLabel;
    Label6: TLabel;
    so2h: TEdit;
    so2: TLabel;
    so2w: TEdit;
    so3h: TEdit;
    so3: TLabel;
    so3w: TEdit;
    so4h: TEdit;
    so4: TLabel;
    so4w: TEdit;
    so5h: TEdit;
    so5: TLabel;
    so5w: TEdit;
    so6h: TEdit;
    so6: TLabel;
    so6w: TEdit;
    so7h: TEdit;
    so7: TLabel;
    so7w: TEdit;
    so8h: TEdit;
    so8: TLabel;
    so8w: TEdit;
    Label28: TLabel;
    Edit19: TEdit;
    ao1: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Edit20: TEdit;
    Edit21: TEdit;
    ao2: TLabel;
    Edit22: TEdit;
    Edit26: TEdit;
    ao3: TLabel;
    Edit27: TEdit;
    Edit28: TEdit;
    ao4: TLabel;
    Edit29: TEdit;
    Edit30: TEdit;
    ao5: TLabel;
    Edit31: TEdit;
    Edit32: TEdit;
    ao6: TLabel;
    Edit33: TEdit;
    Edit34: TEdit;
    ao7: TLabel;
    Edit35: TEdit;
    Edit36: TEdit;
    ao8: TLabel;
    Edit37: TEdit;
    Label23: TLabel;
    so1b: TComboBox;
    Label24: TLabel;
    ComboBox10: TComboBox;
    Label26: TLabel;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    ComboBox15: TComboBox;
    ComboBox16: TComboBox;
    ComboBox17: TComboBox;
    so1w: TEdit;
    so2b: TComboBox;
    so3b: TComboBox;
    so4b: TComboBox;
    so5b: TComboBox;
    so6b: TComboBox;
    so7b: TComboBox;
    so8b: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i,n,j:integer;
  m:real;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=0;
  for i:=1 to  8 do
     begin
          n:=strtoint(TEdit(FindComponent('so'+inttostr(i)+'h')).text)+n;
          j:=          (TEdit(FindComponent('so'+inttostr(i)+'b')).ItemIndex);
     end;
 
  m:=(n/100);
  sandr.Text:=floattostr(m);
end;
end.

@qwertehok · 27.05.2017, 11:07

а какой может быть у TEdit ItemIndex???

@Matan! · 27.05.2017, 11:13

Может, Вы имели ввиду Combobox?

@STJOHN · 27.05.2017, 11:14 **[ТС]**

Тьфу блин )))) Давно не кодил уже подзабыл все. Спасибо )))

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@qwertehok 5967 / 4543 / 1094 Регистрация: 29.08.2013 Сообщений: 28,161 Записей в блоге: 3
	27.05.2017, 11:07
	Сообщение было отмечено STJOHN как решение Решение а какой может быть у TEdit ItemIndex??? 1

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	27.05.2017, 11:13
	Может, Вы имели ввиду Combobox? 1

@STJOHN 0 / 0 / 0 Регистрация: 13.01.2013 Сообщений: 16
	27.05.2017, 11:14 [ТС]
	Тьфу блин )))) Давно не кодил уже подзабыл все. Спасибо ))) 0

.ItemIndex в цикле

Решение