Aktív témák
-
Alvin_ti4200
félisten
Ez a kérdés. Van 3 edit (mit, mibe, hova). Hogyan néz ki a forráskód?
-
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?
So it goes… We stand alone by standing stones and turn them into circles.
-
[amne]
senior tag
válasz Alvin_ti4200 #5 üzenetére
prog. zh. BMF-en jövőhéten mi? :) Melyik tankörben vagy amúgy? El tudnád mondani hogy miket tanultunk mert órákat szelektáltam. Amúgy a kérdést nem értem, válaszolni se tok ;]
-
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.So it goes… We stand alone by standing stones and turn them into circles.
-
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));So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
StrToIntDef(Hova.Text,0) <-- így ha nem tudja konvertálni számmá a pozíciót, az elejére szúrja be a szöveget. Ha úgy szeretnéd, hogy a végére tegye, akkor cseréld le erre:
StrToIntDef(Hova.Text,MaxInt)So it goes… We stand alone by standing stones and turn them into circles.
-
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.So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Ekkor viszont az a gond, hogy ha olyat írnak a harmadik editbe, amit nem sikerül számmá konvertálni a függvénynek, akkor kapsz egy kivételt. Kivételkezelést tanultátok már, vagy ne terheljelek tovább?
So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Ümm... várj, lehet, hogy csak nem tetted bele a uses-be a SysUtils-t (mondjuk nem is mondtam)...
So it goes… We stand alone by standing stones and turn them into circles.
-
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;So it goes… We stand alone by standing stones and turn them into circles.
-
[amne]
senior tag
válasz Alvin_ti4200 #1 üzenetére
Nagy vonalakban fel tudnád vázolni miket tanultunk eddig? Elkészített programok működése, lényege is érdekelne. Thx!
-
steveetm
őstag
Még annyit ehhez, hogy ha nem tudná számmá konvertálni a hovát, attól nem kell kivételkezelés, hanem egy input mask ot kell adni annak az editnek, és nem is tud bele más írni csak számot(bár lehet az mask edit, de mindeképp eccerübb mint most kivételeket is felvázolni...)
Üdv.: steveetm -
Alan
aktív tag
válasz Alvin_ti4200 #1 üzenetére
Kíváncsiságból megkérdezhetem, ki tanítja a Delphi-t abban a tankörben?
(Nagy I.? Belléné? Csapóné? Vámossy Z.?) -
Alan
aktív tag
válasz Alvin_ti4200 #25 üzenetére
Aha, köszi.
-
[amne]
senior tag
válasz Alvin_ti4200 #23 üzenetére
Mél ment szintén
de itt is köszi. -
launcser
senior tag
válasz Alvin_ti4200 #25 üzenetére
ő Edit, nem TEdit
Ákos poénkodott ezzel, hogy TÁkos :)
edit rendes, de a zh-knál nem enged puskázni, vigyázztütüü
-
launcser
senior tag
válasz Alvin_ti4200 #29 üzenetére
ha kiszámolom akkor kb annyi lehet
ő is itt tanult, mint mérnöktanár azt ittragadt
talán 2 éve végzett vagy 3, eszerint számolj
25 kb +-1tütüü
-
Tütüm
aktív tag
válasz Alvin_ti4200 #29 üzenetére
Hello!
Átküldenéd az emilemre nekem is a zip-eket?Igazából a tömbös anyagrész ami homály nagyon.Nem tudod véletlen 16-os tankör mikor ír?
Aktív témák
- Mobil flotta- ajánló keresés belépéshez
- Érdemben megoldódik a zajos Noctua NH-D15 G2 léghűtők problémája
- Autós topik
- Elektromos autók - motorok
- Gránit az asztalon: teszten az AMD új platformja
- Azonnali processzoros kérdések órája
- Formula-1
- Ingyen kellene, de tegnapra
- Bambu Lab 3D nyomtatók
- Ukrajnai háború
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen