Циклы и Edit

[Kurai]

Можно ли как-то сделать цикл от 0 до i, в котором, например, в первом случае за переменную К берется значение из первого Edit, во втором из второго и т.д.?

[Sciv]

Ничего не понятно, поэтому от фонаря:

Case <УСЛОВИЕ> of
  <значение 1>: n:=StrToInt(Edit1.text);
  ..
  <значение m>: n:=StrToInt(EditM.text);
end;

for i:=1 to n do ...

[Stilet]

Да. Можно.

[Sciv]

Виталий, ты его понял? Разъясни и мне, а то я вообще не врублюсь, чего надо то товарисчу? То ли едиты в цикле выбирать, то ли по результатам выбора едита цикл организовывать?

[Stilet]

чего надо то товарисчу?

В цикле перебрать все контролы Эдитов приложения или формы. В общем-то везде это можно. но зависит от языка

[Sciv]

В цикле перебрать все контролы

Тогда как-то так:

var i: integer;
    Edit: Tedit;
begin
  For i:=0 to form1.ControlCount-1 do
    if form1.Controls[i].ClassType=TEdit then begin
      Edit:=Form1.Controls[i] AS TEdit;
      K:=StrToint(Edit.Text);
    end;
end;

[Stilet]

Тогда как-то так:

Если Делфи то да )

[Kurai]

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

Виталий, ты его понял?

её
я хотела реализовать нечто вроде

for i:=0 to 5 do begin
 n:=StrToInt(Edit_[i+1].Text);
end;

[Sciv]

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

её
я хотела реализовать нечто вроде

Edit_[i+1].Text

Такое обращение к контролу не прокатит, увы.

[Kurai]

Именно поэтому благодарю за помощь