PROHARDVER! témák
Mobilarena témák
IT café 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
- Filmvilág
- Vízügy: árvíz, belvíz, aszály, stb.
- Call of Duty: Warzone
- Apple MacBook
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Milyen okostelefont vegyek?
- Kertészet, mezőgazdaság topik
- Energiaital topic
- Google Pixel 10a – évismétlés
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- BESZÁMÍTÁS! 64GB Corsair Vengeance LPX 3200Mhz DDR4 memória garanciával hibátlan működéssel
- Felújított laptopok számlával, garanciával! Ingyen Foxpost/PostaPont!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Astro A50 4th Gen wireless + base station fejhallgató
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
elhaszn)'); helyett



