Új hozzászólás Aktív témák

• #206 <Adamsky> nagyúr lao ce #203

  Új Válasz 2004-11-26 11:39:38 #206

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  <Adamsky>

  nagyúr

  válasz lao ce #203 üzenetére

  Igazából nem jutottam sokra. A lényeg valami ilyesmi lenne:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var i: integer;
  const szoveg = '11,10,09,08';
  
  begin
  i := 0;
  repeat
  Edit1.text := copy(szoveg, 1+i*3, 2);
  inc(i);
  until i>3;
  end;
  
  Namármost a formon van 4db Editbox, és ez az előbbi kódrész az 1-esbe szép sorba beleírja a 11, 10, 09, 08 számokat. Ez -- mondanom sem kell -- így nem jó. Az ''i'' értékétől függően kellene az egyes számokat az ''i+1''-ik Editbox-ba beírni.
  
  Lehet az Editbox-okat tömbe szervezni? pl:
  EDoboz: array [1..4] of TEdit;
  
  [Szerkesztve]

Új hozzászólás Aktív témák