Legfrissebb anyagok
PROHARDVER! témák
- 3DMark (2013) eredmények
- Házimozi belépő szinten
- Azonnali informatikai kérdések órája
- Vezetékes FEJhallgatók
- Milyen TV-t vegyek?
- Bambu Lab 3D nyomtatók
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Elég kompakt lett az MSI legfrissebb, Blackwell architektúrás VGA-ja
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
Új fizetett hirdetések
- BOMBA ÁRON ELADÓ! Üzleti HP Elitebook 640 G9 Laptop! / i5-1235U 16GB 256GB 14"col garancia/
- Akciós áron eladó HP Elitebook 850 G7 / I7 10610U/16 GB/512 SSD/15"/FHD/IPS/MX 250
- Szuper áron eladó új ACER SWIFT EDGE 16 /R7-7735U/16GB/512SSD/ 4K OLED
- DELL G15 5515 Gamer Laptop /Ryzen 7- 5800H/16GB 512 SSD/ Nvidia RTX 3060 6GB/120Hz/
- Szuper áron dobozos új Asus Vivobook Pro /i5-11300H/16 GB/512SSD/3K OLED
Üzleti előfizetők hirdetései
- AKCIÓ! Lenovo Thinkpad T14 Gen 3 üzleti notebook - i5 1245U 16GB RAM 512GB SSD Intel Iris XeW11
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- iKing.Hu - Apple iPhone 15 Pro Max - White Titanium - Használt, karcmentes
- Motorola G72 128GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! ASUS TUF GAMING X670E-PLUS WiFi alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest