Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi speichern von zwei dyn. arrays (https://www.delphipraxis.net/26082-speichern-von-zwei-dyn-arrays.html)

heiopei 17. Jul 2004 19:52


speichern von zwei dyn. arrays
 
abend,
ich hab folgendes problem:
is möchte zwei dynamische arrays, die wiederum zwei dynamische arrays enthalten, in eine datei speichern und diese dann mit compressionstream(zlib) kompremieren!
(das ganze soll dann auch wieder mit einer prozedur geladen werden!)

mein vorgehen bis jetzt:
erst mal ein filestream erzeugen und in diesen
1.die feldanzahl des erten arrayes
2.die feldanzahl des zweiten arrays
reinschreiben

wenn feldanzahl von erstem array größer 1 dann
in einer for schleife diese einzelnen felder des array speichern,
wobei ich beliebige daten UND die feldanzahl des dyn. arrays inherhalb des arrays angebe
und dann dieses array in einer weiteren for schleife speichere, wenn die feldanzahl > 1

für das zweite feld gehe ich genauso vor!

dann erzeuge ich ein tcompressionstream objekt und gebe diesem als stream den von mir erzeugten filestream und schreibe aam ende comprstream.free und filestr.free;

allerdings sind die daten falsch, wenn ich sie wieder lade
(ich gehe dann genauso wie beim speichern vor, nur setzte ich halt noch die länge der arrays entspr. der gespeicherten feldanzahl; außerdem benutze ich natürlich ein decompressionstream <-- hier müsste der fehler sein)

kann mir jemand sagen, wie man macht/machen könnte und ein beispiel geben

ps: die quelle hab ichgrad leider nicht parad!!!

mfg,
heiopei

heiopei 18. Jul 2004 19:02

Re: speichern von zwei dyn. arrays
 
abend,
also ich hab das problem jetzt selber gelöst!
ich hab einfach mit twriter und treader die daten der arrays
einfach stück für stück gespeichert und geladen und dann des mit
dem kompremieren eingebaut und - es geht alles perfekt

mfg,
heiopei


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz