| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать цикл по Edit

MVP ©   (2006-04-30 22:15:00) 

Есть массив из 6 элементов, куда записываются значения вводимые с 6 Edit, как сделать цикл, чтоб не писать a[1]:=Edit1.Text, a[2]:=Edit2.Text и т.д. ?

---

Loginov Dmitry   (2006-05-01 10:49:00) [1]

> а ещё можно объяснить, что это значит? )


Читать Help.

---

Mr tray   (2006-04-30 23:50:00) [2]

нужно сначала прописать в type допустим
Tarray_of_real=array [1..5] of real;

а потом
function TForm1.FindX1 (a: Tarray_of_real):string;

---

MVP   (2006-04-30 23:48:00) [3]

>  A[I] := TEdit(FindComponent(Format('Edit%d', [I]))).Text;


а ещё можно объяснить, что это значит? )

---

MVP   (2006-04-30 23:42:00) [4]

а как в описании функции задать, что массив будет входным
function TForm1.FindX1 (a: array [1..5] of real):string;

так не катит

---

Loginov Dmitry   (2006-04-30 22:35:00) [5]

>
> MVP   (30.04.06 22:15)


procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
 A: array[1..2] of string;
begin
 for I := 1 to 2 do
   A[I] := TEdit(FindComponent(Format('Edit%d', [I]))).Text;
end;


> и ещё вопрос, как передать массив в функцию?


Объяви тип, например TArray = array[1..N] of string, а затем переменную данного типа указывай в качестве параметра функции.

---

MVP   (2006-04-30 22:31:00) [6]

и ещё вопрос, как передать массив в функцию?

---

Наверх