- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- ArchiCAD és Artlantis topik
- Mikrotik routerek
- YouTube
- WLAN, WiFi, vezeték nélküli hálózat
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Linux kezdőknek
Új hozzászólás Aktív témák
-
Robiba
tag
-
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;Billentyűzet hiba! Nyomjon F1-et a folytatáshoz!
-
Robiba
tag
válasz killerjohn #686 üzenetére
2. Vissza:=ReverseString(Eredeti);
1. A fentit használhatod az Edit OnChange eseményében.Billentyűzet hiba! Nyomjon F1-et a folytatáshoz!
-
Robiba
tag
Hááát, ha még ezek után sem megy: #686
A 2.-t ne csináld, elég gáz, inkább saját komponenst kellene írni rá.
A #688-ra: milyen változóba?
Tessék, beírom egy string változóba:
var
Vissza:String;
begin
Vissza:=ReverseString(Edit1.Text);
end;Billentyűzet hiba! Nyomjon F1-et a folytatáshoz!
Új hozzászólás Aktív témák
- Pécs és környéke adok-veszek-beszélgetek
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Diablo IV
- OLED TV topic
- gban: Ingyen kellene, de tegnapra
- A fociról könnyedén, egy baráti társaságban
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Víz- gáz- és fűtésszerelés
- PlayStation 5
- Eredeti játékok OFF topik
- További aktív témák...
- Újszerű - ASROCK B450 Fatal1ty Gaming K4 AMD AM4 alaplap + Windows 10/11 HOME digitális licensz
- Újszerű - ASROCK B450 Pro4 AMD AM4 dobozos alaplap
- HP Elitedesk 800 G4 DM I5-8500T 16GB 256GB SSD (1 USB sérült, de működik)
- Dell 7060 Micro I5-8500T 8GB 500 GB SSD WIFI
- DELL LATITUDE 7390 I5-8250U/8GB/256GB SSD/1920X1080