- Mr Dini: Mindent a StreamSharkról!
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- weiss: Pant* rant
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- Lalikiraly: Astra kalandok @Harmadik rész
- eBay-es kütyük kis pénzért
Új hozzászólás Aktív témák
-
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
- Xiaomi Redmi A3 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi Note 13 256GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Asrock H310CM i5 9400F 16GB DDR4 240GB SSD 1TB HDD RTX 2060 Super 8GB Zalman Z1 700W
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- FÉL ÁR ALATT! Lian Li UNI FAN SL120 RGB 1db-os és 3db-os ventilátor szett garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest