Hirdetés
Új hozzászólás Aktív témák
-
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!
-
#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
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
-
elhaszn)'); helyett
Új hozzászólás Aktív témák
Hirdetés
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest