Hirdetés
Ú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!
-
#687
Robiba
tag
killerjohn
#686
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
- MSI GTX 1660 GAMING X 6gb újszerű
- Panasonic CF-20 ütésálló, ipari notebook & tablet számlával, garanciával
- Arctic P12, P14, Slim, Max, PWM, PST
- Lenovo ThinkPad E495 Ryzen 5 pro 3500U, 8GB RAM, 256GB SSD, jó akku, szép állapot, számla, garancia
- Lenovo ThinkPad X395 Ryzen 5 pro 3500U, 16GB RAM, 256GB SSD, jó akku, szép állapot, számla, garancia
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest