Hirdetés
Legfrissebb anyagok
- Az AVX és AVX2 emulálásával kedvez az ARM-os gépeknek a Windows 11 frissítése
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában...
- Fájlformátumok a gyakorlatban: ProRes, H.265, AV1
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Olcsóbb fajtájúnak ígérkező Team Group SSD a PCI Express 5.0-s halmazban
PROHARDVER! témák
- Milyen billentyűzetet vegyek?
- Amlogic S905, S912 processzoros készülékek
- eGPU tapasztalatok
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Kormányok / autós szimulátorok topikja
- Videós, mozgóképes topik
- Apple asztali gépek
- Emelkedik a korábbi generációs Intel CPU-k ára
- Milyen HASZNÁLT notebookot vegyek?
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában...
Mobilarena témák
Keresés
Új hozzászólás Aktív témák
-
Robiba
tag
válasz
killerjohn
#686
üzenetére
2. Vissza:=ReverseString(Eredeti);
1. A fentit használhatod az Edit OnChange eseményében. -
Robiba
tag
var
Form1: TForm1;
i1, i2:integer;
tomb:array [0..3] of string = ('Edit1','Edit2','Edit3','Edit4');
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
for i1:=0 to 3 do begin
for i2:=0 to Form1.ComponentCount-1 do begin
if (Components[i2].Name=tomb[i1]) and (Components[i2] is TEdit) then begin
(Components[i2] as TEdit).Text:='Akármi';
break;
end;
end;
end;
end;
Új hozzászólás Aktív témák
Aktív témák
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
- Milyen billentyűzetet vegyek?
- Amlogic S905, S912 processzoros készülékek
- Spórolós topik
- eGPU tapasztalatok
- Xbox Series X|S
- Autós topik
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Egyéves Gemini AI Pro a Google-től a magyar egyetemistáknak is
- iPhone topik
- További aktív témák...
Új fizetett hirdetések
- MUNKAGÉP Dell Precision 7520 / 16gb ram / 512gb SSD / Nvidia 4gb dedikált / MAGYAR Bill
- Gamer pc eladó! 2070 Super/i5-10600KF/16GB RAM/Be Quiet
- új iPhone 17 Pro 512GB cosmic orange kozmosznarancs független Apple 1 év garancia
- iPhone 16 Pro 128GB white titanium fehér titán független Apple 1 hét garancia
- Audioquest kábelek RCA, LAN, Optikai
Üzleti előfizetők hirdetései
- BESZÁMÍTÁS! ASUS H510M i5 10400F 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman S2 TG CHIEFTEC 700W
- HP EliteBook 840 G7 i5-10210U 16GB 256GB 14" 400nit 100% sRGB 1 év garancia
- Honor 90 512GB, Kártyafüggetlen, 1 Év Garanciával
- Új Asus Zenbook Pro Duo 14 OLED QHD 120Hz i7-12700H 16GB 1TB Nvidia RTX 3050Ti Studio Win11 Garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő
elhaszn)'); helyett






