Hirdetés
Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
Új hozzászólás Aktív témák
-
<Adamsky>
nagyúr
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
Hirdetés
Aktív témák
- Samsung Galaxy S23 Ultra - non plus ultra
- Azonnali VGA-s kérdések órája
- Politika
- Az agyagtáblás számítógép, avagy ne röhögtess !
- Le Mans Ultimate
- Kormányok / autós szimulátorok topikja
- Háború Izraelben
- Pentax DSLR topic
- Parfüm topik
- Új perifériákkal és szoftverrel terjeszkedik a Lorgar a régióban
- További aktív témák...
Új prémium hirdetések
- GAMER PC: i5-12400F/13600KF - RTX 3080 GDDR6X - 512GB-4TB M.2 NVMe SSD -16/32GB DDR4 - GAR/SZÁMLA!!!
- Samsung Galaxy Z FLIP 6 12GB/512GB, Silver Shadow, kártyafüggetlen, garancia, makulátlan, új állapot
- Macbook Pro 15" - 2015, 4 mag i7, 16256GB, 100 ciklusos akku, garancia (y2)
- Eladó Konfig I7-10700 32GB DDR4 512GB SSD RTX3060TI 8GB!
- MacBook Pro 16 M2 Max - 32GB RAM, 1TB SSD - 27 hónap Garancia - Patika állapotban // 100% akksi
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Ozeki Kft
Város: Debrecen