Pascal: fájlokból rekordokba történő beolvasási probléma? (bővebben lent)

Bocsi ez a if index>50 then

break; csak debugolás miatt raktam bele, fáradok már. Ezt ki kellett volna szednem.

'Azért az több mint felháborító, hogy nincs egy split se, csak ilyen saját magad összerakott kínlódásokat találtam, ezt én kínlódtam össze saját kútfőből. Ha van és én voltam béna esetleg mert nem találtam, akkor is jól el van dugva.'

Van Split csak nem úgy hívják :)

@#5: „Illetve persze lehet beolvasni egyben is az egész fájlt és úgy dolgozni rajta, vagy karakterenként.”

Természetesen eszem ágában sem volt ezek egyike sem, arra gondoltam, hogy hátha be lehet olvasni valahogy eleve vesszőtől-vesszőig, de a fájl ismeretében kétségtelen, hogy halva született gondolat volt. A darabolásra viszont praktikusabbnak tűnik a Free Pascal beépített függvényét használni. A következő kísérletem miatt előre is esedezem az avatott kollégák bocsánatáért. Mivel nem tudom, mire szolgál az egész program, csak annyit próbáltam változtatni rajta, hogy a fenti módon olvassa be az adatokat. Kivált illetlenség volt nem foglalkoznom a #10 hozzászólással, de az nagyobbrészt olyan problémákat feszeget, amelyekhez az én gyatra imereteim elégtelenek. Két dolog mindenesetre eszembe jutott ezzel kapcsolatban. Az egyik: Lehet, hogy a {$h+} longstring-direktíva sincs igazán üdvös hatással a stringek szerkezetére, de anélkül végképp elvisehetetlenül lassan működik a program, másfél óra múltán le is lőttem inkább. A másik: Nem tudom, hogy jár-e helytakarékossággal, ha a stringek hosszát előre megadjuk, így:

kutyafule : string[5];

...mert ha igen, efféle méretkorlátozásra nagyon sok helyen lehetőség volna.

Az meg nekem is furcsa, hogy minek kell egy feltupírozatlanul is 300 mega körüli adatkazlat teljes egészében a memóriába olvasni, de hát nem ismerem az elgondolás lényegét. A próbálkozásommal kapcsolatban annyi pozitívumról tudok beszámolni, hogy kétszer legalábbis hibajelzés nélkül végigfutott. Hogy közben mit művelt, mit nem, azt egyelőre nem teszteltem. Itt van:

[link]

"A memória használattal kapocsolatba számolj úgy hogy pascalba alsó hangon ha nincs még plusz overhead akkor egy sima mezei string 256 bájtot foglal. A 0.-ik indexen 1 bájtos hosszúságot jelző érték van, utána a string karaktererei max 255 darab, ha nincs annyi akkor a fennmaradó rész kihasználatlan. A delphi-s féle dinamikus string máshogy fest (nálam nem ez lépett életbe a ObjFPC diretktíva ellenére se)."

10: Dehogy. A pascalban a stringek memóriafoglalása erősen implementáció függő, de a freepascal-ra hagyatkozva, abban legalábbis egészen biztosan optimális, ami annyit tesz, hogy a szükséges memóriaméretet foglalja le csak, annál egy bytettal sem többet.

A short string (string[length]) meg végképp nem memóriafaló, mivel az a string tényleges hosszát foglalja, plusz egy karaktert ami a hosszat jelzi, valóban a nulladik indexen.

"de pluszba hozzátesz hogy vannak karakterek melyek több bájtosok "

Hát ilyenek nincsenek, hacsak nem a UNICODE stringekre gondoltál, mivel azok 2 byte/char hosszúak, de hát, ezért állnak UNICODE karakterből. Ez nem pascal specialitás, másutt is ez az ábra, a unicode karakterek két byte-osak.

A split és egyebekkel kapcsolatban. Azért, mert te nem használod a pascalt, a nyelv még igenis fejlődik. Alapban nem csak split függvény van benne, de még egy rakat string kezelő függvény is, hogy a komplett, "beépített", jól paraméterezhető parserről említést se tegyek.

Szóval a C ajánlgatása, éppen string-manipulációs célra nem volt túl jó ötlet a pascallal szemben, mivel köztudott, hogy ha valaminek, hát éppen a C-nek nincs semmiféle string-kezelő függvénye, szemben a pascallal, amely más ősidők óta tartalmaz efféléket, nem is unit, hanem mindjárt natív nyelvi szinten (persze ez implementáció függő).

Program Splitter;

{$mode delphi}

uses sysutils;

var

   StrIn : string = ' Hello bakker, , 145.79, , az erő legyen veled';

   StrOut: string;

begin

  writeln(StrIn);

  writeln(' - - - - - - - ');

   for StrOut in StrIn.split(',') do writeln(StrOut);

  readln;

end.

Free Pascal Compiler version 3.0.4 [2017/12/03] for i386

Copyright (c) 1993-2017 by Florian Klaempfl and others

Target OS: Win32 for i386

Compiling splitter.pas

Linking splitter.exe

15 lines compiled, 0.1 sec, 67552 bytes code, 4164 bytes data

@#19:

Gondolom, Kérdező a direktívával együtt másolta be az egészet, inkább a verzió nem stimmelhet. Az egyik gépemen 2.6.4-es régi fordító van, az pontosan a fentebbi hibaüzenetet eredményezi, a másikon nálam is 3.0.4, az meg probléma nélkül lefordítja.