Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Gurulunk, WAZE?!
- ldave: New Game Blitz - 2025
- GoodSpeed: Márkaváltás sok-sok év után
- [K2]: AnyDesk átverés
- Geri Bátyó: Samsung T7 1TB külső SSD
Új hozzászólás Aktív témák
-
VladimirR
nagyúr
function FileOpen(const FileName: string; Mode: LongWord): Integer;
ahol mode lehet:
fmCreate = $FFFF;
fmOpenRead = $0000;
fmOpenWrite = $0001;
fmOpenReadWrite = $0002;
fmShareCompat = $0000 platform;
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030 platform;
fmShareDenyNone = $0040; -
VladimirR
nagyúr
koszonom a segitseged, viszont ha nem gond kerdeznek meg parat:
-a tform1.displayv1tag metodusban megcsinaltam, hogy handler := t_handlerv1.create;, eddig ok, mukodik -- meg kell ezt szuntetni? ha igen, akkor handler.destroy?
-olyat lehet (elvileg lehet, mert ugy csinaltam es mukodik, inkabb az erdekelne, hogy szabad-e), hogy csinaltam egy constructor t_handlerv1.create-ot, es abban van egy tdata:=t_charray.create; sor (tdata az t_charray tipusu), majd egy data=tdata (ezesetben a t_handlerv1.data lesz)? es akkor igy a t_handlerv1.data akkor most lathato es elerheto lesz, amig meg nem szuntetem? (tehat a creat konstruktoron kivul is)
koszonom
p.s.: haat, a parameterlista hianya engem is zavar idonkent, csak sajnos legtobb esretben annyira atgondolatlanul kezdek bele egy-egy programba, hogy a fuggvenyek (hat meg a parametereik
) eleg surun valtoznak, s miota rajottem, hogy igy eleg egy helyen atrini, ezt hasznalom 
mondjuk eleg sokan panaszkodtak, hogy atlathatatanok a pascal kodjaim is -
VladimirR
nagyúr
akkor nem ertem
amikor letrehozom a t_handlerv1 peldanyat, akkor a t_charray - hoz nem jon letre peldany? hisz a t_handlerv1-nek van egy t_charray tipusu valtozoja
ha nem tul nagy keres, elmagyaraznad, hogy mit ertek rosszul?
masik: mi az, hogy hypercool a kodolasi stilusom, es miert baj ez?
koszonom -
VladimirR
nagyúr
Bővebben: link -- igy nezd meg (es elore is koszonom faradozasod)
[Szerkesztve] -
VladimirR
nagyúr
válasz
VladimirR
#596
üzenetére
amit kihagytam (bar egy resze a kodbol ugyis latszik):
az ertekadas ugy sem megy, ha a tomb elemeit egyenkent probalom atadni (eredetileg igy volt a kodban, kinomban irtam at erre, mert value[i]-re azt mondja, hogy inaccessible value -- akar public, akar private, akarmi)
erre csak egyvalamit tudok mondani: wtf? -
VladimirR
nagyúr
kesz, feladom, hulye vagyok
itt a kod (Bővebben: link), valaki legyen szives nezzen bele, mondja meg, hogy mi baja van
a kovetkezo sorra mindig acces violationt dob (azaz nem mindig, csak akkor, ha 128byte-nal nagyobb file-t valasztunk ki, mert kisebbekbe nem olvas bele)
value:=newvalue; (ez az u_charray.pas file-ban van, a t_charray.getfile fuggvenyben)
egyszeruen nem ertem, a value es newvalue tipusa megegyezi, nem megy se cim, se ertek szerinti atadassal, fogalmam nincs
elore is koszonom a segitseget
[Szerkesztve] -
-
VladimirR
nagyúr
na, most nagyon lama vagyok
unit akarmi;
interface
type t_class=class
private
size:byte;
public
function getsize:byte;
end;
implementation
function t_class.getsize;
begin
getsize:=size;
end;
end.
miert all ez le access violationnal annal a sornal, hogy getsize:=size?
meg a watch ablakban miert mondja azt a size-re, hogy unacceptable value? -
VladimirR
nagyúr
na megint ittvagyok: ki kellene irnom file-ba egy 128byte meretu rekordot, de nem tudom, hogy hogyan lenne a legjobb, ugyanis van benne nehany null-terminated string, amiknek viszont fix merete kellene, hoigy legyen a file-ban
tehat ha pchar-t hasznalok, akkor kisebb esetleg lesz, ha meg string-et, akkor nagyobb, a 0. byte miatt (meg az nem is kell bele)
ugy vegulis meg tudnam csinalni, hogy byte-onkent feltoltom a puffert, amit aztan kiirok, de ez nem valami elegans megoldas
tehat hogyan lehetne ezt megoldani?
koszonom -
VladimirR
nagyúr
par kerdesem lenne igy hirtelen:
-lehet-e egy file-t modositani, es ha igen, akkor milyen modon, a file ujrairasa nelkul (tehat nem ugy, hogy kiolvasom, majd az egeszet atirom egy masik file-ba, a modositasokkal egyutt, hanem megnyitom, egy 128byte-os blokkot atirok, majd mentem)?
-lehet-e file elejere beszurni (van egy olyen sejtesem, hogy nem)?
-ha a fenti ket kerdesre a valasz nem, akkor hogyan? megnyitom a file-t, kiolvasom, torlom a filet, majd ujrairom?
-tovabba ha a fenti ket kerdesre a valasz nem, akkor mekkora file-t olvashatok be memoriaba? fileopen-nel ugye beolvasom a file-t mondjuk egy Buffer nevu valtozoba - mekkora meretig mukodik ez? 100-150MB-os file-t meg elbir? esetleg tobbet? vagy hasznaljak temp file-okat?
-ha van egy filelistbox-om es a multiselect engedelyezve van ra, akkor hogyan lehet megtudni az osszes kifelolt file nevet?
-ha nem tudom, hogy mekkora reszre van szuksegem a filebol, akkor mi a teendo, hogyan olvassam be? azt tudom, hogy a file legelejerol kell olvasom, csak azt nem, hogy meddig - azaz joesetben a blokknak van egy 10byte-os footer-e, de ez nem biztos (meg at kell ragnom a specifikaciokat)
-lehet keresni valahogy a file-ban, vagy ezt magam kell megoldjam?
koszonom
[Szerkesztve] -
VladimirR
nagyúr
válasz
granpa_matis
#75
üzenetére
ez a glscene, de ennyire nem lenne kompatibilis, hogy meg sem nyitja normailsan? (szvsz meg lefordulni is lefordulhatna, max nem lehet installalni)
azert kosz a segitseget -
VladimirR
nagyúr
válasz
granpa_matis
#73
üzenetére
naja, csakhogy a 8-as delphi nem dobja fel azt az aranyos kis ablakot, amin a 7-esben volt az compile, meg install
(azota megoldottam - visszaraktam a 7-est
, de tovabbra is erdekel, hogy mi lehetett a gond) -
VladimirR
nagyúr
*.dpk package-t hogy installalok delphi 8 ala?
a glscene-rol lenne szo, ha ez segit valami (a sugoban rafinaltan csak annyit irnak, hogy ''install glscene.dpk as usual''
)
koszonom -
VladimirR
nagyúr
nem pont erre a kerdesre valasz, de tudsz filban ide-oda ugralni
csak nem szovegfileban, hanem tipusos fileban
neked pedig sejtesem szerint rekord tipusu filera van szukseged
type myrec=record
...blablabla...adattipusok...
end;
var f:file of myrec;
[...]
igy tudsz fileba irni, ill a mar benne levo adatokat tudod modositani (bar a kereses lassu szerintem) -
VladimirR
nagyúr
a form1.edit1.text-et ne egyben, hanem karakterenkent titkositsd - visszavonva; az i-t kicsereltem j-re, mert igy dolt lett az egesz

valamint a ciklusod is zavaros kicsit
var j:integer;
c:char;
s: tcaption;
t:string;
begin
t:=form1.Edit1.Text;
for j:=1 to length(t) do
begin
c:=chr(255-(ord(t[j])));
s:=s+c;
end.
form1.Edit1.Text:=s;
end;
[Szerkesztve]
Új hozzászólás Aktív témák
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- World of Tanks - MMO
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Sorozatok
- Nyaralás topik
- Épített vízhűtés (nem kompakt) topic
- Gitáros topic
- Formula-1
- SSD kibeszélő
- Kormányok / autós szimulátorok topikja
- További aktív témák...
- ASUS RTX 4070 Ti TUF Gaming 12GB OC (9 hónap magyar garancia)
- Olcsó számítógép PC - Játékra is! I7 4770 / 16GB DDR3 / GTX 1650 4GB / 256 SSD + 1TB HDD
- Apple MacBook Air 13.6" (2025) M4 Chip, 16GB RAM, makulátlan állapotban 36hó garanciával
- PlayStation 5 Pro konzol (2TB), 3 év garanciával, makulátlan állapotban
- APPLE WATCH SERIES 11 46mm GPS, BLACK + Apple Care+
- ÚJ MSI Katana 15 B13VFK - 15.6" QHD 165Hz - i5-13420H - 16GB - 512GB - RTX 4060 - Win11 - 3 év gari
- BESZÁMÍTÁS! Gigabyte Z170X-Ultra Gaming Z170 chipset alaplap garanciával hibátlan működéssel
- Bomba Ár! Lenovo ThinkPad L14 G2i - i5-1135G7 I 16GB I 256SSD I 14" FHD I Cam I W11 I Gar
- Samsung Galaxy S23 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RTX 3050 6GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
) eleg surun valtoznak, s miota rajottem, hogy igy eleg egy helyen atrini, ezt hasznalom 

(azota megoldottam - visszaraktam a 7-est
, de tovabbra is erdekel, hogy mi lehetett a gond)

