Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Sapphi: StremHU | Source – Self-hostolható Stremio addon magyar trackerekhez
- laskr99: DFI és DFI Lanparty gyűjteményem
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- Invázió egy novellában 3-4. (Update) +5. fejezet! (18+ nyelvezet)
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- LordAthis: Mission: Imposible? - Együtt 1333 és 1600 MHz, ECC/Non-ECC
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
Új hozzászólás Aktív témák
-
zenit
tag
válasz
Drótszamár
#456
üzenetére
Bocs, kicsit félreérthető voltam:
úgy értettem, hogy ilyenkor egy nil-t kell átadni neki paraméternek. -
zenit
tag
válasz
Drótszamár
#454
üzenetére
A Parent property-t is be kell állítani a szülőre (a Create csak a tulajdonost állítja).
Elképzelhető, hogy a korábban létrehozott kép takarja az újat (de nem biztos!), ekkor használd a BringToFront eljárást.
Szerk: A Create-nek csak akkor adj meg paramétert, ha azt akarod, hogy a tulajdonosa szabadítsa fel, amikor majd ő is felszabadul. Én jobb szeretem az általam létrehozott objektumokat magam felszabadítani, így ekkor elég egy nil-t megadni.
[Szerkesztve] -
-
zenit
tag
A Form az nem egy statikus kép, hogy egyszer kirajzolódik a Show hatására, és aztán úgy marad.
A tényleges rajzolás általában a Windows WM_PAINT esemény hatására történik, ami mindannyiszor meghívódik, ha pl. megváltozik az ablak tartalma (Invalidate) - vagy egyszerűen csak egy másik ablakot elhúzol felette! stb...
Delphi oldalon ezt a mechanizmust az OnPaint eseményben tudod elcsípni, ami mindannyiszor meghívódik, ha a formot újra kell rajzolni. Itt rajzolhatsz pl. hátteret a Formodnak. Használd a TForm.Canvas-t. -
zenit
tag
válasz
#57764352
#111
üzenetére
LNKO és relatív prím algoritmus:
pl. Bővebben: link
vagy: Bővebben: link
[Szerkesztve] -
zenit
tag
A TFileStream a fájl egyszerű bájt-szintű elérésére való, annak minden előnyével és hátrányával. Egyrészt közvetlenül a Windows API-re épül, szóval hatékony - bár ez ma már inkább csak elvi dolog, bár annak nem utolsó
.
Másrészt meg a VCL mindenhol a TStream osztályt használja, ami néhány alapműveletet definiál, a leszármazottai pedig (így a TFileStream is) ezeket implementálják.
Szóval érdemesebb neked is inkább ebbe az irányba haladni, mert később sokat fogod használni őket, ill. ezért nem érdemes már a pascal-os ''file'' típusba jobban belemélyedni. (Talán még a ''Text'' fájltípusnak van egyedül létjogosultsága, mert erre nem létezik elfogadható alternatíva, bár az más kérdés, hogy valóban szükség van-e rá.) -
zenit
tag
Használhatod ezt:
type TItem = array[0..1023] of Char;
Ezzel 1023 karakter hosszú szöveget tudsz tárolni (plusz egy lezáró #0 karakter). Így már mehet a file of TItem, ahol a rekord mérete 1024 bájt lesz.
String (S) -> TItem (Item) konverzió a fájl írásához:
StrLCopy(Item, PChar(S), SizeOf(Item) - 1);
Olvasás után pedig csak egyszerű értékadás kell: S := Item;
Halkan megjegyezném, hogy a file of ... használata Delphi-ben elavult dolognak számít, helyette használj inkább TFileStream-et.
Új hozzászólás Aktív témák
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Sony MILC fényképezőgépcsalád
- Vicces képek
- Apple iPhone 14 - tavalyi termésből főzve
- MILC felhasználók szakmai topikja
- Xbox Series X|S
- Facebook és Messenger
- Nothing Phone (3a) Lite – mennyit ér a név?
- Genshin Impact (PC, PS4, Android, iOS)
- További aktív témák...
- GIGABYTE GeForce RTX 4070 Ti GAMING OC
- Apple Watch Ultra (1. gen.) // 49mm // Black/Gray Trail Loop (M/L)
- Új, bontatlan G.SKILL 32GB (2x16GB) KIT DDR5 6000MHz CL36 Ripjaws M5 Neo RGB White EXPO - 10 év gari
- Új, bontatlan ADATA XPG 32GB (2x16GB) KIT DDR5 6000MHz CL30 Lancer Blade Black XMP/EXPO - 10 év gari
- Új, bontatlan ADATA XPG 48GB (2x24GB) KIT DDR5 6000MHz CL30 Lancer Blade RGB Black - 10 év garival!
- Samsung Galaxy Tab S6 Lite 64GB,Átlagos,Dobozával,12 hónap garanciával
- AKCIÓ! HP EliteBook x360 830 G7 i5-10210U 16GB 512GB 1 év garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 256GB SSD 1TB HDD GTX 1660 SUPER 6GB Zalman T4 Plus 450W
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
)



