Speichern eines Arrays mit dem Filestream

rizor · Beiträge: 209 WIN XP Delphi 2005 PE, Visual C++

Hi,

ich speichere eine Datei durch einen Filestream.
Nun möchte ich zwei Arrays, die in einem Record stehen damit speichern.

markieren

Delphi-Quelltext

1:
2:
3:
4:

 for i := 0 to 30 do
      stream.Write(Kerosin.PreisMon[i], Kerosin.PreisMon[i]);
 for i := 0 to 11 do
      stream.Write(Kerosin.PreisJahr[i], Kerosin.PreisJahr[i]);

So sah meine Idee aus, nur leider werden die Werte nicht gespeichert.
Ich habe im Debugger auch keinen Fehler gefunden.

Könnt ihr mir helfen?

Narses · Verfasst: Mo 23.04.07 19:42

Moin!

Schonmal in die Suche geschaut?

ARRAY FILESTREAM SPEICHERN

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

rizor · Beiträge: 209 WIN XP Delphi 2005 PE, Visual C++

Das hilft mir leider nicht, da ich mein Problem nicht im geringsten eingrenzen kann.

Narses · Verfasst: Mo 23.04.07 20:25

Moin!

rizor hat folgendes geschrieben:

Das hilft mir leider nicht, da ich mein Problem nicht im geringsten eingrenzen kann.

Und du bist sicher, dass du mit TFileStreamnicht vielleicht etwas überfordert bist? :gruebel:

Eventuell wäre ja ein Tag-basiertes Format doch besser gewesen?

Schauen wir doch mal in die Hilfe zu TFileStream.Write:

DOH hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	function Write(const Buffer; Count: Longint): Longint;

Du hast da stehen:

rizor hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	stream.Write(Kerosin.PreisMon[i], Kerosin.PreisMon[i]);

Was fällt uns auf? Du übergibst 2x den gleichen Parameter an Write, aber das kann ja nicht korrekt sein, denn der 2. Parameter soll ja die DATENMENGE angeben! :mahn:

Vielleicht fehlt da ja noch was? :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Marco D. · Verfasst: Mo 23.04.07 20:28

Ich werfe mal einfach das Wort size in den Raum. :lol:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

rizor · Beiträge: 209 WIN XP Delphi 2005 PE, Visual C++

hmm...
Manchmal bin ich wie vernagelt.
Danke

Narses · Verfasst: Mo 23.04.07 22:24

Moin!

Da du den Thread nicht als gelöst markiert hast: heißt das jetzt, du weißt immer noch nicht, warum das nicht geht oder hast du nur die Markierung vergessen? :?!?:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme