- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Samsung Galaxy SmartTag2-esek a tolvajok ellen!
- Magga: PLEX: multimédia az egész lakásban
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- eBay-es kütyük kis pénzért
- Argos: Szeretem az ecetfát
- Elektromos rásegítésű kerékpárok
Új hozzászólás Aktív témák
-
Divi
aktív tag
Jéééézusss
Na ez az amikor ha megfeszülök se veszem észre mi a hiba de egy friss szem azonnal
Fejlemény: NEM MEGY De legalább mást ír ki :
Statement Failed SQLCODE = -902
Access to database is denied by server Administrator
Jójó, hozzáférés megtagadva.
Hol lehet ilyet állítgatni?
Alias: Akkor Delphiben hogy történik egy FB adatbázis azonosítása? -
btotyi
tag
A szintakszis jó de #-ok nem kellenek mivel az az ENTER-eket helyettesíti ( lád első bekezdés vége note
!
Milyen aliasra gondolsz ? Aliasokat a Delphi használ, FB-hez nem kell.
Mert kell lennie egy rendszergazdának aki kezeli a szervert, létrehoz usereket jogosultságot oszt ki stb....
Mert egy szerveren több felhasználó is lehet akiknek különböző jogaik lehetnek ( Különböző adatbázisok, táblák stb stb stb).
Az maga az adatbázis mert az FB (InterBase) mindent egy file-ban (na jó lehetnek shadow és több files-os adatbázisok de az téged most nem érint) tárol.
[Szerkesztve] -
Divi
aktív tag
Windows platform (Linux várólistán van)
Addig jutottam el, hogy feltelepítettem egy FireBird -ed, megváltoztattam a SYSDBA jelszavát. és az ISQL-lel szeretnék egy employee táblát megnyitni.
Na a megnyitás mindig syntax errort hoz. És nemtudom miért:
Itt a kép:
Bővebben: link
Egyéb kérdések:
- Itt hogy lehet aliasokat létrehozni/törölni/változtatni?
- Minek az a SYSDBA felhasználó? Minek kellenek felhasználók egy Adatszolgáltató rendszerbe?
- Ez az employee.fdb egy TÁBLA vagy egy ADATBÁZIS? -
lao ce
aktív tag
hat, sok otletem nincs.
kiprobaltam ezt:
procedure FileCopy(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..102400] of Char;
begin
AssignFile(FromF, FromFile);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF, ToFile); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
ez speciel egy file copy de talan ad neked otletet, buffer size-t lehet allitani az elejen. a legnagyobb fileom egy 700 megas film volt amit hirtelen talaltam, eleg szepen es gyorsan csinalta... na remelem mas okosabb lesz mint en -
Bobojsza
aktív tag
na ertelek... de itt mar gigarol van szo.
a helyfogalalast block irassal csinaltam, igy kb 4 perc
byte-onlkent nem birtam kivarni de kb. 1.5 ora lenne, ahogy szamoltam. Az sok, ha hozzaveszem a feldolgozasi idot is, mielott kiirom, az nagyon sok! Valami olyan modszer kene, hogy fel oran belul maradjak!
Olyan cimzesre vagy tudomisen mire gondolok, hogy blokkent tudjam irni! -
lao ce
aktív tag
de hulye vagyok, hat irtad hogy szekvencialisan szerinted lassu.
megmondom oszinten, hogy szerintem a sebesseg amit szekvencialis feldolgozassal elerek osszemerheto azzal amit monjuk egy kopi-paste csinal egy parszaz megas file-lal, persze hozzaadodik a delphi rutin tokolodese.
bocsi hogy nem segitek -
lao ce
aktív tag
nem tudom pontosan mit jelent az hogy 'kezelni' akarod.
szoval a javaslatom hogy olvassad es dolgozd fel soronkent szekvencialisan, igy nincs korlat tudtommal.
en olvasok es feldolgozok nehanyszaz megas fileokat amik adatbazisba mennek utana, azok elegge repulnek - persze nekem nem kell 'real-time' sebesseg. -
Bobojsza
aktív tag
Ha mar letezik egy ilyen topic-hat ideirom
Bazi nagy file-t kene kezelnem.
Ugye a korlat nyelvenkent valtozo, de maradjunk 2Gb-nal, mivel a file indexe bizonyos tipusu, amin nemigen lehet valtoztatni. Lehet 1 file nem eleg, lehet tobb az adat, ezt elore nem tudni. De egyelore legyen eleg 2Gb
Tehat megvan a file, lefoglaltam neki helyet a winyon.
A kerdesem az, hogy hogyan tudom bazigyorsan irni olvasni ezt a file-t?
Ugye - ekkora memoria a vilagon nincs (na jo tudom hogy van), szoval szekvencialisan elerve a file reszeit tudok beolvasni illetve kiirni. Ez eddig OK! nade ez lassu, plane ha az egeszet byte-onkent akarom megirni.
Mi a megoldas? -
#76
VladimirR
nagyúr
granpa_matis
#75
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 -
#75
granpa_matis
aktív tag
VladimirR
#74
granpa_matis
aktív tag
válasz
VladimirR
#74
üzenetére
Ha errol van szo: Bővebben: link
Sztem az a differencia, h ez nem D 8-as -
#74
VladimirR
nagyúr
granpa_matis
#73
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 ![;]](//cdn.rios.hu/dl/s/v1.gif)
, de tovabbra is erdekel, hogy mi lehetett a gond) -
-
lao ce
aktív tag
a nevem mit jelent? nezz utana ha erdekel, alapmuveltseg.
az alairasomnak van ertelme, es egyebkent idezet egy regi magyar filmbol.
''Az egeszet nem nagy dolog megcsinalni, csak szeretem latni, hogy mit csinalok''
jo szerencset a keresgeleshez, ha megtalaltad ird be ide a forumba a megoldast. -
GBX
aktív tag
Ezek a mai programozó fiókák, egyfolytában versengenek egymással, egymás szekálják, fikázzák, csak azt felejtik el, hogy nem úgy kell feljutni a ''ranglétrán'' (mint az általában Mao-n gyakorlat is mutatja), hogy a másikat lenyomjuk 
(tehát mi ezáltal ''magasabbra'' kerültünk) hanem azzal , hogy alkotunk. Sajnos sok az önmutogató ömber a szakmában, de ezzel most nem akartam senkit sem fárasztani.
Lényeg: -próbáljunk segi'teni a másiknak -legyünk megértőek -ha nem világos akkor kérdezzünk. -és ha semmi okosat nem tudunk mondani akkor inkább halgassunk -ha vmi baromságot mondtunk akkor meg ismerjük el, hogy hibáztunk (elvégre emberek vagyunk nem gépek).
[Szerkesztve]
[Szerkesztve] -
#66
granpa_matis
aktív tag
Divi
#48
granpa_matis
aktív tag
Annyit tudok mondani az FB-rol, h nagyon jo, fel eve visz egy 100 connectes adatbazist es foleg azert jo alternativa, mert ingyenes, ez IB szerverrel nagyon sokba kerulne...
Az interbase komponenseket meg sztem felejtsd el, ott van helyette az IB Object, ami fizetos, de jobban megeri ezzel megismerkedni, hihetlenul sok energiat fogsz vele megsporolni. Puritannak tunhet de nagyon jo az SQL editorja, stabil es elterjedt is. Hasznalata hasonlo az IB-hez. -
b14
senior tag
HI
Csak maert mar regen erdekel: Mite jelent a neved? Vagy semmi jelentese nincs?
Es az alairasodnak van valami ertelme, legalabbis en ugy gondolom.
''ritka dolog, de ez ertelmes hozzaszolasod volt.'
koszonom az ertekelesedet, majd dicsekszek vele tarsasagban.' Ezen nevetni kene?
Egyebkent a te nem tudsz megserteni- bol a nem tudsz volt nekem ertekes.
'Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.'
marpedig azt neked kell megtenni, annal nagyobbat mennel jobban nem ertesz hozza. - THX a batoritast, ha annak kell venni.
'Egyebkent az egeszet megicsinaltam vonalak nelkul'
ha megirtal egy komplett amobaprogramot akkor rendkivul erdekes hogy nem birod begepelni azt a peldat amit irtak neked es ami egy vacak vonalat huz a vacak formra.
Az egeszet nem nagy dolog megcsinalni, csak szeretem latni, hogy mit csinalok -
lao ce
aktív tag
nekem eleg nehez veled beszelgetni de meg nem adom fel.
ezt irtad te: 'Hello, es ha durvan fogalmaztam, sertegetesnek tunne, akkor kerlek ne vegg annak'
ezt irtam en: 'amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni'
erre te azt irtad hogy nem erted miert irtam ezt a mondatomat. melyik reszet nem erted pontosan?
'ritka dolog, de ez ertelmes hozzaszolasod volt.'
koszonom az ertekelesedet, majd dicsekszek vele tarsasagban.
'Egyebkent az egeszet megicsinaltam vonalak nelkul'
ha megirtal egy komplett amobaprogramot akkor rendkivul erdekes hogy nem birod begepelni azt a peldat amit irtak neked es ami egy vacak vonalat huz a vacak formra.
'Ha gondolod elkuldom, vagy valami'
ne kuldd el. probald ki a vonalhuzast. ez a tanacsom.
'Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.'
marpedig azt neked kell megtenni, annal nagyobbat mennel jobban nem ertesz hozza. -
b14
senior tag
HI
amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni. -ezt nem ertettem teljesen, de a programot nezve nem is szamit.
Probalkoztam a tobbi forumon ennek keresesevel, de ezzel a tobbiek nme nagyon foglalkoztak (lealabbis en nem talaltam megoldast).
azert segiteni megprobalok, mert a szocsatabol nem lesz amoba -ritka dolog, de ez ertelmes hozzaszolasod volt.
Egyebkent az egeszet megicsinaltam vonalak nelkul, de ugy megis ''szebb'' lenne az egesz. Ha gondolod elkuldom, vagy valami.
Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.
Remelem valaki tud segiteni -
lao ce
aktív tag
''sorcsapos hulyeseg egyaltalan nem erdekel''
latod, en nem irtam hogy hulyeseget irtal, pedig kis hijan ertelmezhetetlen hulyeseget irtal, akarhova is raktad a kezed gepeles kozben -gondolom a monitor ele es ezert nem tudtad elolvasni amit irtal. amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni.
azert segiteni megprobalok, mert a szocsatabol nem lesz amoba
1) ''Hogy lehet egy (grafikus) vonalat húzni a form-on?''
2) ''Ugy ertetttem, hogy grafikusan (form viewerben) látnám, hogy mit csinalok.
(amobaval probalkozok);''
amikor elotted van a delphi a formokkal meg menukkel azt hivjak design-time-nak. amikor a programod fut azt hivjak runtime-nak.
vonalat huzni a formra runtimeban ugy lehet ahogy valaszoltak neked ket oran belul az elso kerdesedre. probald jutilajzolni a gorditosavot.
amikor azt mondod hogy 'latni akarod' a 'form viewerben' es hogy 'amoba' akkor arra irtam hogy design-timeban nem lehet vonalat huzni, hanem probalkozz a shape objektummal esetleg.
az, hogy egyszeruen bakapcsolsz valamit a delphiben es attol hirtelen tudsz (idezlek) 'vektor graphics'-ot hasznalni a 'form viewer'-ben es amobat irni, olyan sajnos nincs beleepitve a delphibe alapallapotban.
ha elmondod milyen erofesziteseket tettel ez ugyben idaig es hol akadtal el, akkor talan tobben, tobbet es jobban tudnanak neked segiteni. -
b14
senior tag
hi
tisztelt vénahűtős
Kerlek vedd eszre, hogy egy sorral arrabb raktam a kezem a gepelesnel es az volt a problema a 'venahhutessel'
Egyebkent nem tudok meg ugy programozni delphiben hogy runtime visible legen egy line, mert akkor ki sem irtam volna a problamam ezert kerek segitseget, de a sorcsapos hulyeseg egyaltalan nem erdekel, sosem voltam alkoholista, es remelem nem is leszek, es ha a 'rajzolasrol' van szo akkor mint a problememmal kapcsolatos hozzaszolasomnal se konkretan rajzolasrol volt szo, hanem vektor graphics-rol, a problema meg mindig fenn all szamomra, remelem, hogy segitseg erkezik ra.
Hello, es ha durvan fogalmaztam, sertegetesnek tunne, akkor kerlek ne vegg annak.
Bye.
--
b14
exit -
lao ce
aktív tag
''vnaéhutos''
vagy vénahütös vagy vonalhuzos problemara lehetne dekodolni.
a vonalhuzos problemara a valasz meg mar elhangzott. tudtommal nem lehet vonalakat huzogatni design-time egy formra a defaultban feltelepult objektumok egyikevel sem. amit tudsz csinalni hogy lerakodsz shape-eket vagy beveleket es azzal 'rajzolsz' magadnak amobat vagy mit, dehat ez azert nem 'rajzolas'.
a vénahütést sosem probaltam delphiben, esetleg usb-n keresztul lehetne vezerelni a sorcsapot. -
b14
senior tag
hi
Ha pld a form1-bol az uses sorba felveszem a unit2-t akkor meg tudom hivni az form2-t a form2.show- val. Ez eddig OK. de mar hogy tudnam a masikkal is megcsinalni ezt, mivel ha a unit2- nel is ugyanezt csinalom akkor korkoros unit reference = circular unit reference to 'unit1'.
Bocs mar megolva
[Szerkesztve] -
btotyi
tag
A FreBird (FB) az InterBase (IB) opensource-os továbbfejlesztett változata. Alapból jól használható az IBX komponensekkel csak az extrákat (új adattípusok stb) nem tudják használni. A használathoz kell egy IB/FB szervert futtatni a gépeden. Az IB fizetős és csak fejlesztéshez használhatod azt amit a jogtiszta Delphid-hez kaptál. Az FB természetesen free. Szóló gépen is gond nélkül fut a szerver és a fejlesztőeszköz együtt. Ha van futó szervered (NT,XP alatt szervizként szokott futni) azt meg tudod nézni, leállítani, indítani az IB Szerver managerrel. Ha a szerver ok akkor ibconsollal tudsz hozzá csatlakozni adatbázist, táblákat létrehozni. Ha ez megvan akkor Delphiben az IBX-komponenscsomagban található IBDataBase, IBTransaction,IBQuery komponensekkel lehet kezelni az adatokat.
[Szerkesztve] -
Divi
aktív tag
Kedves ti!
Tudnátok mondani egykét keresetlen szót, az InterBASe ről és a FireBird-ről?
mint Adatbázis kezelő dologról?
A Delphivel ha jól látom feltelepült az InterBase is.
A kérdésem annyi, hogy hogyan tudnám ezt életre kelteni? És milyen lépések kellenek, hogy Delphiben valami eredményt lássak?
b14: Bocs nem válasz akart lenni, hanem új hsz
[Szerkesztve] -
Divi
aktív tag
Értem, köszönöm a felhomályosítást. Hálózati kezelés LESZ. 5-10 júzer max.
Tehát akkor SOK kérdés van még az msg #31-ben.
Azt már megválaszoltuk, hogy a BDE felejtős. (Kár mert elég egyszerűnek tűnt )
Érdekelne, hogy ti jó megoldásnak tartjátok-e erre a feladatra ezt a megoldást amit felvázoltam?
[Szerkesztve] -
btotyi
tag
Amíg csak egy gépen vagy addig istenes de több gép konkurens használat hálózatban, na ott lehet szívni. (indexsérülés, lock time out stb..., dbflush és tdutil használat szükséges ezerrel). Tehát ha csak a leghalványabb esélye is felmerül egy többes használatnak akkor már egyszerűbb mást használni. Az újabb Delphik (és a Borland) sem támogatja, ergo nem fejlesztik, javítják tovább. Szóval célszerű egyből elfelejteni. Léteznek kis, beágyazott ingyenes sql szerverek ( MSDE, Firebird). Egygépes, egyfelhasználós programot is célszerű így megcsinálni éa akkor gond nélkül lehet skálázni a rendszert. A firebird embedded változatánál egy dll-t (so-t) kell a progid mellé másolni és egy teljes funkcionalitású sql szervered van.
[Szerkesztve] -
btotyi
tag
Hagy a BDE-t a francba. Ha kevés adatod van használj xml táblákat (ClientDataset) ha picivel több akkor pedig szánj rá egy kis időt és próbálj meg egy kis sql szervert ( pld. MSDE vagy beágyzott Firebird). Így ha később esetleg mégis több adatot, több felhasználót kell kezelni nem lesz probléma. Ha meg mégsem kell ilyesmi legalább tanultál valamit.
[Szerkesztve] -
Szenty
tag
Miért is ne foglalkozhatna?
Én is 10 éves lehettem, amikor elkezdtem programozni.
Igaz, akkor még C=64 Basic-ben. Utána jött C=64 assembly.
Aztán '94-ben jött az első pc, egy 486-os. Mivel a basicet ismertem, ezért maradtam a Turbo Basic-nél (akkor ez volt az egyetlen basic, amelyik tudott EXE fileokat generálni).
Aztán nagyon hamar a Pascal (és mellette hamarosan Assembly is). És még mindig ez a favorit.
Pascalból és Clipperből volt 5 órás érettségi vizsga.
Aztán a fősulin belekostoltam ebbe-abba: C, Java, OOP C++, Visual C++, Deplhi.
Meg mellette még megtanulgattam a Perlt, PHP-t is.
Jelenleg írom a diplomamunkámat, Perlben.
[Szerkesztve]
[Szerkesztve] -
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) -
Divi
aktív tag
Aztamindenti! Szépen megszaldt a topic. AMI JÓ
Nos a fejlemény az, hogy a Fájozós-átírós-tankozós-romantikus adatkezelés az akkor lett volna lehetőség, hogy tényleg könnyen tudtam volna ide-oda ugrálni a fájlban és kedvembre tudtam volna átírni dolgokat.
Mivel ez bukott így marad a Dbase kezelés bevágása.
Adattömeg mérete: Bátyám cégétől függ De a 10 megát szerintem ebben az évtizedben nem fogja átlépni. (Ha egyáltalán életképes lesz maga a koncepció)
Gyorsan vázolom hogy én hogyan képzelem az adattárolást
4 db tábla
1. tábla : A programot felhasználók adatai (user/pass//név/tel/e-mail/stb) + USERazonosító
2. tábla: Céglista: Azon cégek listája és adatai (cím/tel/@) + CÉGazonosító(k) és USERazonosító által szűrve
3. tábla: Külső cégek kapcsolattartó embereinek adatai (név/tel1/tel2/@1/@2/hülye hóbortok) + EMBERazonosítók és USERés CÉG azonosító által szűrve
4. tábla: Eseménylista: A cég elvégzendő feladatai.
Felhasználó kritériumai szerint szűrve.
1 tábla szűri az összeset.
2 tábla szűri, 3táblát vagy/és a 4. táblát
3. tábla szűri a 4. táblát
4. táblában meg olyan VAZZ sok rekord lesz, hogy jujj
Na az SQL az számomra nagyon messze van és tnylegesen 0 tudásom van belőle. Így a Delphi beépített eszközeivel szeretném megoldani.
A kérdés, hogy ezt a szűrős dolgot, milyen módokon lehet megoldnai? Hallottam valami Master-detail kapcsolatról, el tudná valaki mondani magyarul hogy mi ez? Vagy a Filtered opció elégséges megoldás egy tábla szűréséhez?
Nem gázos, hogy a 4. táblában már 3 ''fölösleges'' azonosító mezőt kellene alkalmazzak, hogy tudjak szűrni?
Válaszaitokat előre is köszönöm! -
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] -
b14
senior tag
Hi
Ez a prog ''tikositana'' bar nem nagy cucc de szeretnem meg csinalni.
Mi benne a hiba?
var i:integer;
c:char;
s
caption;
begin
for i:=1 to length(form1.Edit1.Text) do
begin
c:=chr(255-(ord(form1.Edit1.text)));
s:=c;
form1.Edit1.Text:=s;
end;
szerkesztett:
Ezt a hibauzenetet adja:
Project Project1.exe raised exception class EAccess Violation with message 'Acess violation at address 0044F14A in module 'Project1.exe'. Write address 00000000'. Process stopped. Use Step or Run to continue.
[Szerkesztve] -
Szenty
tag
Szia!
Mit jelent az, hogy igen sok adatot kezel? Több száz gigabyte-ot? Vagy sokat számol a program, és az eredményt (ami akár lehet kevés is) tárolná szövegfájlban? Fejtsd ki légyszi kicsit részletesebben!
Egy jó tanács: felejtsd el a szövegfilet, az soha nem is volt alkalmas adatbázisok tárolására (lásd kismillió féle CSV-formátum). Tanulj meg kezelni valami SQL-alapú adatbázist inkbább. (No meg az SQL-t)
Rengeteg szenvedéstől fogod megkímélni magad.
[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á.) -
Divi
aktív tag
Ki tudnád feljteni pozitívumait/negatívummait?
Egy barát már ajánlotta, de mivel ez eddig teljesen ismeretlen dolog számomra, hogy mi is egyáltalán így jó volna egy kis felhomályosítás, hogy mivel tud többet
és hogyan kell vele megcsinálni, azt amit a sima ''File of'' -fal is meglehet
[Szerkesztve] -
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.
-
Divi
aktív tag
Ötlet:
És ha mondjuk mitadisten a Fájl egy File of String; (hogy tudom rávenni, ,hogy többet tudjon letárolni mint 255 karakter?
akkor már működik a Seek és lehet módosítani is
Azért iggen kellett a hozzászólásod, hogy ez kipattanjon a fejemből
Gondolom te akkor benne van a programozósdiban. Az elkövetkezőkben tudnál egy kis figyelmet fordítani a hülye kérdéseimnek? (ha nem okoz nezézséget) -
Divi
aktív tag
============ Attention ============
Delphi 6
Szeretnék írni egy ''komolyabb'' programot ami igen sok adatot kezel.
Az, hogy Adatbázisban vagy egy jól megszerkesztett TEXT fájlban tárolja le az adatokat 1 dologtól függ. Hogy van-e rá mód, hogy a text fájlomat úgy kezeljem, ahogy szeretném, azaz...
Hogyan lehet Delphi alatt egy már MEGLÉVŐ text file egy sorát átírni jeletősebb macera ( fájl újraírás) nélkül?
Magam nem találtam semmi olyan parancsot ami egy text file SOR mutatóját állítani tudná, és hogy az adott sort kiolvassa majd visszaírja valami más adattal!
Help me please!
(azota megoldottam - visszaraktam a 7-est ![;]](http://cdn.rios.hu/dl/s/v1.gif)
, de tovabbra is erdekel, hogy mi lehetett a gond)
Ezek a mai programozó fiókák, egyfolytában versengenek egymással, egymás szekálják, fikázzák, csak azt felejtik el, hogy nem úgy kell feljutni a ''ranglétrán'' (mint az általában Mao-n gyakorlat is mutatja), hogy a másikat lenyomjuk 
design és runtime is
Azt már megválaszoltuk, hogy a BDE felejtős. (Kár mert elég egyszerűnek tűnt 
caption;
(ha nem okoz nezézséget)
Új hozzászólás Aktív témák
Hirdetés
- Kínai és egyéb olcsó órák topikja
- One otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy A52s 5G - jó S-tehetség
- Mini-ITX
- Autós topik
- Gyúrósok ide!
- Konteó topic
- Tőzsde és gazdaság
- Galaxy Z Fold6-hoz viszonyítva mutatják, mennyivel lesz vékonyabb a Z Fold7
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- További aktív témák...
- Csere-Beszámítás! AMD Ryzen 5 9600X Processzor!
- MacBook felvásárlás!! Macbook, Macbook Air, Macbook Pro
- Canon imagePrograf PRO-6100S plotter - szinte új, 500m2 nyomat
- AKCIÓ! MSI B450M R7 5700X 16GB DDR4 512GB SSD RX 5700 XT 8GB Rampage SHIVA Zalman 600W
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest