- Újabb renderek mutatják meg az Xperia 1 VIII változásait
- iPhone topik
- Huawei Watch 4 Pro - kívül-belül domborít
- One mobilszolgáltatások
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Megérkezett a Samsung Galaxy A37 és Galaxy A57
- Amazfit Bip 6 - jót olcsón
- Google Pixel topik
- OnePlus 15 - van plusz energia
- Apple Watch
-
Mobilarena

Új hozzászólás Aktív témák
-
Vico87
tag
válasz
b05styp
#3260
üzenetére
Hello!
Látom senki sem válaszolt. Nos kicsit ügyetlen a kódod (bocsi, de tényleg
). Ugye Delphiben írod vagy valami hasonlóban (értsd ezalatt Object Pascal IDE) ?
Nézd meg a doksiban, hogy van-e valami String Tokenizer nevezetû dolog (én már nagyon régen nem Pascaloztam). Ha van akkor azt ajánlom, sokkal letisztultabb kódot eredményez. A string tokenizerek azt csinálják, hogy megadsz nekik két sztringet, az egyik a "felvágandó", a másik az "elválasztó", mire szétvágja a "felvágandót" "elválasztókkal" határolt részekre. Például : "Ez a mondat jaj fel lesz jaj vágva jaj tokenizerrel" , "jaj" bemenetek eredménye 4 sztring : "Ez a mondat", "fel lesz", "vágva", "tokenizerrel". Ezután csak annyi a dolgod, hogy összerakod a sztringeket, "hajaj"-t, illetve "jaj"-t a darabok közé ékelve.Ha nincs tokenizer, akkor sokkal szebb, ha csinálsz egy másik sztringet, ahova másolod az elsõt karakterenként, amíg 'j'-t nem találsz, megnézed, hogy "jaj" jön-e, ha igen, akkor a másik sztringhez hozzáadsz egy "ha"-t, és bemásolod a maradékot is.
Kerüld az if-eket egymás után, használj logikai kifejezést, mint pl
if (szo[i]='j' AND szo[i+1]='a' AND stb... ) then
begin
{ ... implementáció ... }
end;Remélem menni fog

Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Vezetékes FEJhallgatók
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Teljes verziós játékok letöltése ingyen
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Szívesen használsz Samsung böngészőt? Immár PC-n is megteheted
- E-roller topik
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Akciókamerák
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Gamer PC, Ryzen 5 5500, RTX 3060 Ti, 16gb RAM
- 27% - ASUS ProArt GeForce RTX 4080 SUPER OC 16GB GDDR6X 256bit Videókártya !
- Sony Playstation 5 Pro 2TB/ 36 hónap garancia
- 27% - GIGABYTE RX 7800 XT GAMING OC 16G Videokártya
- ThinkPad P16 Gen1 16" FHD+ IPS i9-12950HX RTX A1000 32GB 512GB NVMe magyar vbill ujjlolv gar
- ASUS ROG Flow Z13 2in1 i9 / RTX 3050Ti / 120Hz GAMER TABLET!
- 27% - Asus RoG Strix XG27ACDNG QD-OLED Gaming Monitor! 2560x1440 / 360Hz / 0.03ms / G-Sync/ FreeSync
- HIBÁTLAN iPhone 14 Pro Max 128GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS4457
- AKCIÓ! Intel Core i7 6700 4 mag 8 szál processzor garanciával hibátlan működéssel
- Felsőkategóriás Gamer PC-Számítógép! Csere-Beszámítás! R7 7800X3D / RX 6900XT / 32GB DDR5 / 2TB SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

). Ugye Delphiben írod vagy valami hasonlóban (értsd ezalatt Object Pascal IDE) ?

