Hirdetés
- Xiaomi 12X – kicsi a bors és hűvös
- Milyen okostelefont vegyek?
- One mobilszolgáltatások
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Honor Magic6 Pro - kör közepén számok
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Megtartotta Európában a 7500 mAh-t az Oppo
- Újabb részletes képeken a Google Pixel 10a
- Retró külső modern Bluetooth funkciókkal
-
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!
- ÚJ, bontatlan NZXT Kraken 240-280 Fekete-fehér RGB vízhűtők - Garanciás!
- Sigma 60-600mm f/4.5-6.3 DG OS HSM Sports objektív ( Canon ) -Újszerű-
- HP VICTUS 15 RTX 5060 AMD Ryzen AI 7 350 - 24 GB - 512 GB
- Latitude 5440 14" FHD IPS érintő i5-1345U 16GB 256GB NVMe IR kamera gar
- ÚJ Lenovo Yoga 7 - 14" WUXGA OLED - Intel Ultra 5 226V - 16GB - 512GB - Win11 -3 év gari - HUN - PEN
- iPhone 13 Pro 128GB 100% (1év Garancia)
- Új Asus Vivobook S16 Flip 2in1 WUXGA X360 Touch i9-13900H 14mag 16GB 1TB SSD Intel Iris XE Garancia
- HIBÁTLAN iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, 100% Akkumulátor
- Új Kipsta agility 100 focicipő (43-as)
- Apple iPhone 14 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest

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


