Hirdetés
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Kétarcú űrutazás: az Artemis II startra kész, a Starlinert elmarasztalták
- Beelőzte az iparágat a HBM4 tömeggyártásával a Samsung
- Visszahozta a sírból a G-Drive márkanevet a Western Digital
- Komplex intelligencia a Gemini 3.1 Pro fókuszában
- PC-k milliói kerülhetnek veszélybe idén
- Kormányok / autós szimulátorok topikja
- Milyen billentyűzetet vegyek?
- Autós kamerák
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Milyen TV-t vegyek?
- Minigép vagy NAS? Mindkettő!
- Külső merevlemezek - USB, eSATA, FireWire HDD
- Hobby elektronika
- Milyen monitort vegyek?
-
PROHARDVER!

Ú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!
- A Royal Philharmonic Orchestra játssza a Samsung új csengőhangját
- PlayStation 5
- Samsung kuponkunyeráló
- PC-k milliói kerülhetnek veszélybe idén
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Horgász topik
- Kormányok / autós szimulátorok topikja
- Gitáros topic
- SkyShowtime
- További aktív témák...
- LG 65QNED87A / MiniLED / 65" - 164 cm / 4K UHD / 144Hz / HDR Dolby Vision / FreeSync Premium / VRR
- iPhone 17 Pro Max Kozmosznarancs - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok !!
- HP ProDesk 600 G5 i5-9500 16GB 512GB 1 év garancia
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
- Ultimate előfizetés akár 4714 Ft/hó áron! Azonnali, automatizált aktiválással, csak Nálam!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

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


