Hirdetés
Legfrissebb anyagok
Mobilarena témák
- Vivo X300 - kicsiben jobban megéri
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Új dizájnt kap a Nova széria friss generációja
- Hivatalos a OnePlus 13 startdátuma
- Apple Watch Ultra - első nekifutás
- iPhone topik
- Magisk
- Honor 200 Pro - mobilportré
- Megbüntették, ezért feloszlatná az EU-t Elon Musk
- Minden a BlackBerry telefonokról és rendszerről
PROHARDVER! 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
- OLED TV topic
- Parci: Milyen mosógépet vegyek?
- Xbox tulajok OFF topicja
- Azonnali notebookos kérdések órája
- Gyúrósok ide!
- Vivo X300 - kicsiben jobban megéri
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Villanyszerelés
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Számlás vadiúj Tápegysègek! Kèszleten!
- GYÖNYÖRŰ iPhone 13 mini 128GB Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3884, 100% Akkumulátor
- Shining3D EinScan Pro 2X 3D szkenner
- Acer Nitro 5 - AN515 - 15.6"FHD IPS 144Hz - i5-10300H - 8GB - 512GB - Win11 - GTX 1650 - MAGYAR
- Panasonic CF-20 ütésálló, ipari notebook & tablet számlával, garanciával
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
elhaszn)'); helyett





