Hirdetés
- Menekül a HEVC licencdíja elől a HP és a Dell
- HiFi műszaki szemmel - sztereó hangrendszerek
- 5.1, 7.1 és gamer fejhallgatók
- AMD Navi Radeon™ RX 9xxx sorozat
- OLED TV topic
- Milyen egeret válasszak?
- VR topik (Oculus Rift, stb.)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Vezetékes FEJhallgatók
- iPad topik
Ú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
- Menekül a HEVC licencdíja elől a HP és a Dell
- Star Trek Online -=MMORPG=-
- HiFi műszaki szemmel - sztereó hangrendszerek
- Xiaomi 14 - párátlanul jó lehetne
- Metal topik
- Könyvajánló
- Ubiquiti hálózati eszközök
- PlayStation 5
- Black Friday november 29. / Cyber Monday december 2.
- Xiaomi Mi 8 - így csinálunk csúcsmodellt Mi
- További aktív témák...
- Sony Bravia XF85 43" 4K Ultra HD 100 Hz LED Android Smart TV (KD-43XF8577)
- MacBook Air 13", M3 16/256, csillagfény
- Kezdő Gamer PC / Számítógép! Csere-Beszámítás!R7 1700X /GTX 1060 6GB /16GB DDR4 / 250SSD + 1TB HDD
- Apple Mac mini M4 / M4 Pro garantáltan a legjobb ár, bontatlan, EU-s, garanciális
- Samsung 2x16GB DDR5 5600MHz SODIMM memória - teljesen ÚJ!
- HIBÁTLAN iPhone 16 Pro 128GB Desert -1 ÉV GARANCIA - Kártyafüggetlen, MS3945, 92% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RTX 5070 12GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3063, 100% Akksi
- HIBÁTLAN iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3670 100% Akkumulátor
- magyar billentyűzet - 165 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
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)


