componenti dizi(array) gibi kullanmak

[kinayrock]

selam arkadaşlar şöyle bi sıkıntım var;

bir dizide "dizi:array[0..7] of integer;"
dizi[k]:=x; şeklinde yazabiliyoruz peki bunu

SpinEdit[k].Value:=dat1; şeklinde bütün spineditlere for döngüsünde değer yazabilirmiyim şimdiden teşekkür ederim iyi çalışmalar.

[unicorn64]

sanırım şöyle bir şey arıyorsun

Kod: Tümünü seç

  dizi:array[0..7] of TSpinEdit;

  dizi[k].Value:=dat1;  

[sabanakman]

Eğer form üzerindeki bileşenleriniz SpinEdit1,SpinEdit2..SpinEdit8 şekllindeyse

Kod: Tümünü seç

for i:=1 to 8 do
 TSpinEdit(FindComponent('SpinEdit'+IntToStr(i))).Value:=100

şeklide bileşenlere isimlerinden erişebilirsiniz.

[m_ekici]

Kod: Tümünü seç

for i:=0 to ComponentCount-1 do
   if Components[i] is TSpinEdit then TSpinEdit(Components[i]).Value:=100;

[kinayrock]

saolun arkdaşlar kodlar için en kısa zamanda denicem eminim işe yarayacaktır tekrar saolun.

[orhancc]

Kod: Tümünü seç

procedure TForm3.SetSpins;
var
  i: Integer;
  Comp: TComponent;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    Comp := Components[i];
    if Comp is TSpinEdit then
      (Comp as TSpinEdit).Value := 100;
  end;
end;