мфссив tedit

← →
olevacho_ © (2006-12-23 19:16) [0]

есть на форме 9 Tedit-ov 3x3 . Как объявить массив array[i][j] чтобы каждый еллемент был указателем на определенный TEdit?

← →
Dmitrij_K (2006-12-23 19:22) [1]

var arr :Array[1..3, 1..3] of TEdit; begin arr[1,1] := Edit1; arr[1,2] := Edit2; {...} arr[3,3] := Edit9; {...} arr[3,3].Text := "lalala"

← →
ors_archangel © (2006-12-23 19:22) [2]

const w = 3; h = 3; var ed: array[0..w-1,0..h-1] of TEdit; begin for i := 0 to w-1 do for j := 0 to h-1 do ed[i,j] := FindComponent("Edit"+inttostr(1 + i*w + j)); end;
если editы пронумерованы Edit1, Edit2, …
FindComponent - находит компонент по имени

← →
Palladin © (2006-12-23 19:22) [3]

хем

Var
Edits:Array [1..3,1..3] of TEdit
...
Edits[1,1]:=blabla11
Edits[1,2]:=blabla12
и тд
...

← →
PZ (2006-12-23 20:15) [4]

> [3] Palladin © (23.12.06 19:22)

Не понятно, какое отношение Ваш массив Edits имеет к девяти компонентам TEDit, расположенным на форме, указанным в вопросе [0].

← →
Palladin © (2006-12-23 20:25) [5]

Самое прямое. Моей вины в Вашем непонимании нет.

← →
PZ (2006-12-23 20:27) [6]

Я не обвиняю, я спрашиваю.

← →
PZ (2006-12-23 20:29) [7]

Я воспроизвел Ваш массив - не вижу ни какой связи

← →
Palladin © (2006-12-23 20:30) [8]

Поясняю, на форме есть некий набор объектов TEdit. Об их наименовании мы не имеем ни малейщего понятия, бо это известно только автору. Вопрос звучит так: как объявить массив так что бы они уже...
Да без проблемм, я и показал как же его объявить и как определить значения его элементов...
Теперь понятно каким образом мой массив Edits имеет отношение к девяти компонентам TEDit расположенным на форме?

← →
Palladin © (2006-12-23 20:33) [9]

> [7] PZ

Я не виноват. У тебя проблемы в воспроизводстве.

← →
PZ (2006-12-23 20:36) [10]

Возможно Вы правы, только определение какое-то слишком абстактное. Мне кажется ответ [1] именно по существу.

← →
Palladin © (2006-12-23 20:59) [11]

Ну расскажите пожалуйста чем же отличается [1] от моего ответа? Буковками?

← →
PZ (2006-12-23 21:09) [12]

Var
arr : Array[1..3, 1..3] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
arr[1,1] := Edit1;
arr[1,2] := Edit2;
arr[1,3] := Edit3;
....
arr[3,3] := Edit9;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := arr[1,1].Text;
Label2.Caption := arr[1,2].Text;
Label3.Caption := arr[1,3].Text;
....
end;

На форму установил 9 Edit. В метках я вижу именно то, что записано в этих Edit-ах.
Ваш массив я не имеет подобной связи

Label1.Caption := Edits[1,1].Text;
Label2.Caption := Edits[1,2].Text;

> PZ (23.12.06 21:09) [12]

[1]=[3]

← →
PZ (2006-12-23 21:17) [14]

Не вижу равенства. Впрочем, спасибо за беседу Palladin, ors_archangel, вынужден отключться.

> [14] PZ

Ну... мои соболезнования...

← →
PZ (2006-12-24 12:40) [16]

Вечером гораздо хуже соображаю, чем днем.
Убедился в Вашей правоте, когда написал примеры.
Пардон и с уважением, PZ

мфссив tedit Найти похожие ветки