Array mit Records: Access violation

[Dalai]

Wär's nicht sinnvoller, den ganzen Variablenkram, vor allem das Record, in eine Klasse zu packen bzw. zu verwandeln?

Grüße
Dalai

[zeras]

Sollte man die Daten nicht eher in Realzahlen wandeln? Die sind nur 4 Byte und man auch damit rechnen.

[himitsu]

Ach ja, 20000*40 sind "nur" 800 KB, nur der Stack ist eben recht klein,
aber wenn man ordentlich arbeitet, dann reicht er aber vollkommen aus.

[Redeemer]

packed array s verwenden? himitsu sagt mir bestimmt auch, ob das überhaupt einen Unterschied macht.
Oder nur einen ShortString bzw. String[33] und dann Eigenschaften benutzen? Keine Ahnung, ob das hilft.

Problem dürfte aber halt Größe der lokalen Variablen sein, daher:

Zitat von Dalai:

Wär's nicht sinnvoller, den ganzen Variablenkram, vor allem das Record, in eine Klasse zu packen bzw. zu verwandeln?

Grüße
Dalai

Oder wenigstens globale Variablen. Ich werd aber gleich gesteinigt.

Zitat von zeras:

Sollte man die Daten nicht eher in Realzahlen wandeln? Die sind nur 4 Byte und man auch damit rechnen.

Real ist nicht 4 Byte groß sondern wahlweise 6 oder 8 (Standard).

[Mavarik]

Also

Delphi-Quellcode:

Type MPunkt = record
     Z : String[16]; // Datum und Uhrzeit
     MT : String[5]; // Lufttemperatur
     MF : String[2]; // rel. Luftfeuchte
     MTP : String[5]; // Taupunkt
     MWI : String[5]; // Wärmeindex

Vielleicht besser:

Delphi-Quellcode:

Type
  PPunkt = ^MPunkt
  MPunkt = packed Record // 21 Byte;
             Z   : TDateTime; 
             MT  : Int1632;      // °C 8.32 * 10 = 832
             MF  : String[2];
             MTP : Int32;
             MWI : String[5];
           end; 
var
  MW : Array[1..20000] of PPunkt; // ~78kb

Oder

Delphi-Quellcode:

Type
  PPunkt = ^MPunkt
  MPunkt = packed Record // 25 Byte;
             Z   : TDateTime; 
             MT  : Int1632;      // °C 8.32 * 10 = 832
             MF  : String[2];
             MTP : Int32;
             MWI : String[5];
             Next : PPunkt;
           end; 
var
  Root : PPunkt; // 4 Byte Stack & ~488KB Heap

Mavarik

[Mavarik]

Zitat von Dalai:

Wär's nicht sinnvoller, den ganzen Variablenkram, vor allem das Record, in eine Klasse zu packen bzw. zu verwandeln?

Warum ein Rekord nochmal in eine Kasse packen?

[himitsu]

packed spart hier maximal sagenhaft viele 2 Byte pro record. (5%)
Also eher nicht wirklich hilfreich.


Die einzige "richtige" Lösung hier ist die Daten nicht auf den Stack zu packen.

Zusätzlich den Daten noch "handlichere" Formate (Typen) zu geben, ist aber auch nicht falsch.

Zitat:

Warum ein Rekord nochmal in eine Kasse packen?

Ich denke mal er meint statt Record ein Objekt.
Aber wenn es unbeding ein Record sein muß, weil man den z.B. speicher/übertragen muß, dann ist es auch OK den ganzen Record in ein Objekt zu verschieben. (oder als Pointer mit New/Dispose in das Array)

Nja, wenn man schon dabei ist, dann statt des Arrays auch noch ein TList<> oder Dergleichen.

[OsCor]

Puh, bei diesen ganzen Überlegungen muss ich mich erst mal durcharbeiten. Dazuschreiben muss ich, dass ich nach langen Jahren der Rentneruntätigkeit erst wieder mit Delphi angefangen habe, weil ich gemerkt habe, dass die Sprache mir für meine Hobbyauswertungen am besten liegt. Gemerkt habe ich aber auch, dass ich wohl zeit meines „Delphi-Lebens” offensichtlich nur ganz an der Oberfläche gekratzt habe. Von Zeigern habe ich etwa ganz die Finger gelassen und Überlegungen, was auf den Stack und was auf den Heap kommt, habe ich sicher nie angestellt.

Mitgenommen habe ich also, dass diese Konstruktion mit dem Record-Array meine kindliche Vorstellung eines kleinen Speicherbedarfs gesprengt hat. Kam mir halt bequem vor bei der Weiterverarbeitung der Daten.

Frage 1: Wenn ich ein dynamisches Array verwende, setze ich doch die Größe des Arrays auch fest - und dann ist die Organisation der gespeicherten Daten anders?
Frage 2: Die Originaldaten lese ich über eine Stringlist ein. Da ergeben sich keine Speicherprobleme?

Zitat:

Du hast "lokale" Variablen definiert und die liegen auf dem Stack, nicht dem Heap.
http://docwiki.embarcadero.com/RADSt...erung_(Delphi)

Das werde ich mir zuerst vornehmen.
Zunächst mal vielen Dank für´s Mitdenken

Oswald

[Andreas13]

Hallo,
hier findest Du den Delphi Starterhttps://www.delphi-treff.de/downloads/e-book/ zum Auffrischen und Einlesen in die gar nicht so komplizierten Geheimnisse der dynamischen Arrays.
Gruß, Andreas

[OsCor]

Wenn´s bloß darum geht, wie man mit SetLength umgeht, das nutze ich schon hin und wieder.
Bei einem ersten Versuch damit anstatt des statischen Arrays hat es schon mal geklappt.

Der Hinweis auf die Verwendung eines dynamischen Arrays hat mein Problem also (hoffentlich nicht nur anscheinend) gelöst.
Es waren natürlich noch einige andere Denkanstöße für mich in euren Beiträgen enthalten.

Ich danke vielmals
Oswald