- iPhone topik
- Google Pixel topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Hivatalos a OnePlus 13 startdátuma
- Realme GT Master Edition - mestermunka
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 14T Pro - teljes a család?
- Apple iPhone 12 és 12 Pro duplateszt
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Honor Magic7 Pro - kifinomult, költséges képalkotás
-
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!
- Apple iPhone 13 mini 128GB (zöld)
- Apple iMac 27" 5K 2017 1TB
- Gyári garanciális HP Pavilion 14 x360 i5 1235u/16GB/512SSD/360 TOUCH Screen
- BESZÁMÍTÁS! Apple MacBook Pro 16 M4 Max 36GB RAM 1TB SSD macbook garanciával hibátlan működéssel
- BESZÁMÍTÁS! Apple MacBook Pro 14 M4 Max 36GB RAM 1TB SSD macbook garanciával hibátlan működéssel
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- REFURBISHED és ÚJ - Lenovo ThinkPad 40AS USB-C docking station (akár 3x4K felbontás)
- Microsoft Surface Laptop 5 13.5" i5-1245U 16GB 256GB 1év garancia
- DDR5 8/ 16/ 32GB 4800-5600MHz SODIMM laptop RAM, több db- számla, garancia
- Xiaomi Redmi Note 13 Pro 5G 256GB 1 év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest