Hirdetés
Legfrissebb anyagok
LOGOUT témák
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Lenry: Melléképületblog - 4. rész - Kocsibeálló
- sziku69: Szólánc.
- vrob: Az utolsó DOS játékok 1996 - 1997-ben, egy korszak lezárul
- Bestx: Budget DIY eGPU USB4/Thunderbolt csatlakozással – egy mining VGA új élete.
- eBay-es kütyük kis pénzért
- Real Racing 3 - Freemium csoda
- Maxell Retro DJ teszt
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
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- QNAP TS-870U-RP 8 lemezes Rack NAS
- Konzol felvásárlás!! Xbox Series S, Xbox Serries X
- Új Apple iPhone 16 Pro 256GB, Kártyafüggetlen, 3 Év Garanciával
- Csere-Beszámítás! Xbox One X 1TB Játékkonzol Olvass! Model 1787
- BESZÁMÍTÁS! Gigabyte B450 R7 5700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman Z1 Seasonic 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest