Hirdetés
- MWC 2026: csápolt a robot, majd dobott egy hátraszaltót
- One mobilszolgáltatások
- Akciófigyelő: Jelentős kedvezményekkel veheted meg a Xiaomi 17-eket
- Xiaomi 17 Ultra - jó az optikája
- Milyen okostelefont vegyek?
- Apple Watch Sport - ez is csak egy okosóra
- Honor Magic6 Pro - kör közepén számok
- Huawei P30 Pro - teletalálat
- MWC 2026: Megérkezett a Nubia Air Pro változata
- Vivo X300 - kicsiben jobban megéri
-
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!
- Szuper áron eladó dobozos Asus Vivobook 16 /Ryzen 5-7530U/16 GB RAM/256 GB SSD/FHD+/IPS/16"/Gari/
- Thinkpad P16s Gen1 16" FHD+ IPS i5-1240P T550 24GB 512GB NVMe ujjolv gar
- Dobozos ASUS TUF A15 Ryzen 7 7735HS 16 GB DDR5 512 GB SSD RTX 4060 140W (8 GB) Garancia
- Lenovo Thinkpad X390 (i5 8th, 8 GB , 250 GB SSD) AkciÓÓ
- GIGABYTE Z790 EAGLE +2x16GB 6400MHz CL32 PATRIOT VIPER VENOM DDR5 kit egyben eladó! GAR/SZÁMLA!
- HIBÁTLAN iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4388
- AKCIJÓÓÓ!! Sosemhasznált! HP OmniBook 5 Flip i5-1334U 8GB 512GB 14" FHD+ áthajtós-érintős Gar.: 1 év
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- Xiaomi Mi 11 lite 5G NE 256GB, Kártyafüggetlen, 1 Év Garanciával
- HP EliteBook 840 G7 14" i5 10210u, 16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

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

