Массив

[Levsha100]

Подскажите, пожалуйста, как записать в массив(m[i]) значение всех TrackBar[i]. Position?
Пример:

Var
i : integer ;
m : array[1..15] of integer    ;
##############################
for i := 1 to 15 do
begin
m[i] := Form4.TrackBar[i]:confused: . Position ;
end;

[Stilet]

значение всех TrackBar[i]. Position

Задача в корне непонятна, ибо TrackBar.Position - это переменка (свойство) принимающее число от TrackBar.min до TrackBar.Max.

[Levsha100]

Вы меня не поняли у меня есть 15 TrackBar-ов, надо их всех перебрать и записать значение(Position) каждого в массив (m[1] := Form4.TrackBar1 . Position, m[2] := Form4.TrackBar2 . Position, m[3] := Form4.TrackBar3 . Position…).

[Hollander]

for i:=1 to 15 do
m[i] := (FindComponent('TrackBar' + IntToStr(i)) as TrackBar).Position;

[Levsha100]

Спасибо, получилось, только сначала выбило ошибку (Undeclared identifier: 'TrackBar'), но я исправил на

(m[i] := (FindComponent('TrackBar' + IntToStr(i)) as TTrackBar).Position ; ).

[Hollander]

ну да, ошибся я немного