Hozzászólok Aktív témák

• #211 Alan aktív tag lao ce #209

  Új Válasz 2004-11-26 14:01:57 #211

  Ú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

  

  Alan

  aktív tag

  válasz lao ce #209 üzenetére

  lao ce, rég ''láttalak''
  
  Bocsáss meg, hogy belefirkálok a programodba, de szerintem kicsit szebben így nézne ki:
  
  const
  szoveg = '11,10,09,08';
  
  var
  szamlalo : integer;
  
  szamlalo := 1;
  with Form1 do
  for i := 0 to ComponentCount-1 do
  begin
  if Components i is TEdit
  then
  begin
  (Components i as TEdit).Text := Copy(szoveg, szamlalo, 2);
  szamlalo := szamlalo + 3;
  end
  end;
  
  Ebből most már csak az hiányzik, hogy kizárólag a mi kinevezett szerkesztőmezőinkbe töltsön adatot, és így más mezőket is fel lehessen tenni az ablakra.
  
  
  [Szerkesztve]

Hozzászólok Aktív témák