Legfrissebb anyagok
Mobilarena témák
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
Hirdetés
Aktív témák
- Tőzsde és gazdaság
- Így nézz tévét 2025-ben: új ajánlások, régi szabályok
- Asztalos klub
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Linux kezdőknek
- PlayStation 5
- Elektromos cigaretta 🔞
- iPhone topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- SanDisk Extreme Portable 8TB (SDSSDE61-8T00-G25)
- BESZÁMÍTÁS! MSI Z370 i5 9500 16GB DDR4 512GB SSD RX6600 8GB Cooler Master MB510L Chieftec 500W
- Amazon Kindle 10th Generation ébresztős tok
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 16/32/64GB RAM RTX 4060Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged