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

• #209 lao ce aktív tag <Adamsky> #206

  Új Válasz 2004-11-26 13:38:32 #209

  Ú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

  

  lao ce

  aktív tag

  válasz <Adamsky> #206 üzenetére

  jol indultal el. en csinalnek egy ciklust ami az osszes komponensen vegigmegy, aztan ha editboxhoz er amibe masolni kell valamit, akkor beirnam az aktualis szamot, amit viszont egy szamlalo kell mutasson...
  a kulcs amit en megneznek a helpben a ComponentCount, a Components es az 'as'. ezek alapjan mar meg tudod irni a programot, alabb irom az en valtozatomat amit nem ellenoriztem szoval lehet hogy hibas valahol.
  
  const
  szoveg = '11,10,09,08';
  
  var
  szamlalo : integer;
  
  szamlalo := 1;
  
  // szamoljunk osszes komponenst
  for i := 0 to ComponentCount-1 do begin
  
  // vajon ez egy edit box amibe irni kell?
  // persze, az edit neve Edit1...Editx, tehat csak az elso 4 karaktert kell nezni
  if copy (Components.Name, 1, 4) = 'Edit' then
  ...//igy csinalhatsz a tipustalan komponensbol editboxot,
  ...//es erheted el a value prop-t:
  ...(Components as TEdit).Value := copy(szoveg, szamlalo, 2);
  
  // harmasaval egyszerubb, i-t nem lehet hasznalni mert az osszes
  // komponenst megszamoljuk a formon, azokat is amik nem edit boxok
  szamlalo := szamlalo + 3;
  
  end;
  
  ha van harom edit box-od akkor kitolti, ha felteszel egy negyediket akkor is kitolti a nelkul hogy a programban valtoztatnal.

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