Как сделать цикл по 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;

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

Читать Help.

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