Legfrissebb anyagok
PROHARDVER! témák
- Autós töltők 2025: tényleg megvan a 200 W?
- Projektor topic
- LG LCD és LED TV-k
- ASRock lapok általában
- Házimozi belépő szinten
- AMD Navi Radeon™ RX 9xxx sorozat
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- HiFi műszaki szemmel - sztereó hangrendszerek
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Hobby elektronika
Mobilarena témák
IT café témák
Keresés
Új hozzászólás Aktív témák
-
Alan
aktív tag
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]
Új hozzászólás Aktív témák
Aktív témák
Új fizetett hirdetések
- Corsair SF850L Gold 850W SFX Moduláris Tápegység
- Corsair RM1000X Gold 1000W Moduláris Tápegység PCIE 5 ATX 3 12VHPWR
- Lenovo ThinkPad P15 Tervező Vágó Laptop -50% 15,6" i7-10750H 16/512 QUADRO T1000 4GB
- MAKULÁTLAN! Dell Precision 7760 Tervező Vágó Laptop -70% 17,3" i7-11850H 32/1TB NVIDIA A3000 6GB FHD
- Kiwiears Astral
Üzleti előfizetők hirdetései
- Bomba ár! HP ProBook 450 G3 - i5-6G I 16GB I 128SSD I HDMI I 15,6" HD I Cam I W10 I Gar!
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3388
- HIBÁTLAN iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3392, 94% Akkumulátor
- Dell Precision 5560 i7-11850H vPro FHD+ 100%sRGB 16GB 512GB Nvidia Quadro T1200 1 év teljeskörű gar!
- Újra Akcióban!!! Ducky One 2 Mini és SF billentyűzetek a bolti ár töredékéért! Számla+Gari
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest