Скачать: CL | DM;

Как сделать цикл по Edit   Найти похожие ветки 

← →
MVP   (2006-04-30 22:15) [0]

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

---

← →
MVP   (2006-04-30 22:31) [1]

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

---

← →
Loginov Dmitry ©   (2006-04-30 22:35) [2]

>
> 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 23:42) [3]

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

так не катит

---

← →
MVP   (2006-04-30 23:48) [4]

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


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

---

← →
Mr tray   (2006-04-30 23:50) [5]

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

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

---

← →
Loginov Dmitry ©   (2006-05-01 10:49) [6]

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


Читать Help.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c