- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen TV-t vegyek?
- TCL LCD és LED TV-k
- Úgy tér vissza a Commodore 64, ahogy titkon mindenki várja
- Autós kamerák
- NVIDIA GeForce RTX 5060 Ti (GB206)
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Mini-ITX
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
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
- Részletfizetés , Acer Nitro V 15 minimálisan használt uj állapot sok garancia
- Honor 400 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- 2db Dell PowerEdge R740 2U Rack Szerver és 3db Netapp FAS2040 NAS
- Dell latitude, precision, xps, magyar világítós billentyűzetek eladóak
- BESZÁMÍTÁS! Apple MacBook Pro 16 M4 Pro 24GB RAM 512GB SSD - garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest