Aktív témák
-
KovacsUr
addikt
Jah, mondjuk még annyit, hogy most így semmit nem csinálsz a beszúrás után az eredménnyel...
procedure TForm1.Beszrs1Click(Sender: TObject);
var
mit, mibe:string;
hova:integer;
begin
mit := edit4.Text;
mibe := edit3.Text;
hova := StrToInt(edit5.Text);
Insert(mit, mibe, hova);
{Ha valahol meg akarod jeleníteni, akkor még kell vmi ilyesmi:}
edit3.Text := mit;
end; -
KovacsUr
addikt
Ümm... várj, lehet, hogy csak nem tetted bele a uses-be a SysUtils-t (mondjuk nem is mondtam)...
-
KovacsUr
addikt
válasz
Alvin_ti4200 #12 üzenetére
Eh. Kicsit bővebben? :) Mi a hiba?
Lehet, hogy régi delphit használsz, amiben még nincs ilyen. Akkor próbálj
StrToInt(Hova.Text)
-et használni. -
KovacsUr
addikt
Na, most összeállt az egész. :DDD
Értem. Van 3 edited, ezekben a három paraméter, és végre kell hajtani.
Legyen Mit, Mibe, Hova a három TEdit neve.
s := Mit.Text;
Insert(s, Mibe.Text, StrToIntDef(Hova.Text,0)); -
KovacsUr
addikt
válasz
Alvin_ti4200 #5 üzenetére
Ó. RTFM :), de azért
procedure Insert(const InsertStr: string; var TargetStr: string; Position: Integer);
van pld. egy s stringed:
var s: string;
s := '123456';
Insert('abc', s, 3);
ezek után az s értéke '12abc3456' lesz. -
KovacsUr
addikt
válasz
Alvin_ti4200 #1 üzenetére
Nem egészen értem... String parancs nincs, a string egy beépített adattípus szöveges adatok tárolására. Mit szeretnél csinálni?
Aktív témák
Hirdetés
- Samsung Galaxy A54 - türelemjáték
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kerékpárosok, bringások ide!
- Konzolokról KULTURÁLT módon
- Sütés, főzés és konyhai praktikák
- EAFC 25
- Steam Deck
- Horgász topik
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Call of Duty: Warzone
- További aktív témák...
- AKCIÓ! "ÚJ" Microsoft Surface 5 13,5 notebook - i5 1235U 8GB RAM 256GB SSD Intel Iris Xe IGP 27% áfa
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Honor Magic7 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Latitude 5490 - i5-7GEN I 8GB I 256GB SSD I 14" HD I HDMI I Cam I W10 I Gari!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest