Mehrdimensionales Array an anderes anhängen

[Takeo]

Hallo liebe Community,

ich habe ein Problem mit meinen Arrays. Benutze Delphi XE2.

Und zwar:
Ich habe mehrere csv Dateien von einer Messreihe (wird jede Woche eine neue erstellt). Nun möchte ich mehrere von diesen in ein Array einlesen, damit ich daraus Graphen erstellen kann. Was ich bisher hab ist eine Funktion, die mittels einem Streamreader eine Datei in ein Array schreiben kann, aber halt immer nur eine Datei und nicht mehrere, also müsste ich irgendwie das Array als Art Hilfsarray verwenden und jedesmal an mein großes Array anhängen. In einem anderen Thread hab ich gefunden, dass man mit Move oder Copy ein Array anhängen kann, aber ich weiß nicht, wie ich das mit mehrdimensionalen Arrays mach wegen Setlength und so.

Die Spaltenanzahl bleibt jedes mal ja gleich, aber die länge ja nicht. Geht dann so etwas: setlength(großesArray, length(großesArray) + length(Hilfsarray), length(Hilfsarray[0])) ?

Und wie kopier ich dann das mehrdimensionale Array in das andere?
Und was passiert, wenn das große Array am Anfang noch leer ist, also gar keine Länge gesetzt ist?

Grüße Takeo

[Medium]

Warum schreibst du nicht gleich in das große Array? Wenn du dessen Länge nach einem Füll-Vorgang nachträglich erhöhst bleiben die Daten von zuvor erhalten.

Bei gewissen Mengen könnte sich hier aber auch schon der Einsatz einer embedded DB lohnen, wie Firebird. Arrays haben den Nachteil, dass sie gerne komplett am Stück im Speicher sein wollen. Große Größen kann Windows aber ggf. wegen der Speicherfragmentierung nicht mehr zusammen hängen liefern, so dass dann eine weitere Vergrößerung potenziell auf den Out of Memory Hammer läuft. Bei einer DB hättest du den ganzen Komfort von Queries und den Funktionen des DBMS, und müsstest zu keinem Zeitpunkt mehr alle Daten gleichzeitig in deinem Programm vorhalten. Würde man das auf eine richtige DB aufweiten, wäre ein dauerhaft verfügbares Langzeitarchiv auch denkbar.

[Takeo]

Ich wollte das Datei einlesen in eine eigene, allgemeingültige Funktion packen, da ich später mehrere Messreihen und somit mehrere "große Arrays" habe. Also wäre es besser ich sag "führe die Funktion aus und hänge das Ergebnis an dieses Array".

Hmm mit DBs hab ich mich bisher noch nicht beschäftigt. Ist das schwierig die einzubinden und würde das dann trotzdem mit nur einer "Exe" funktionieren? Mein Programm muss später relativ mobil sein.

[Perlsau]

Zitat von Takeo:

Hmm mit DBs hab ich mich bisher noch nicht beschäftigt. Ist das schwierig die einzubinden und würde das dann trotzdem mit nur einer "Exe" funktionieren? Mein Programm muss später relativ mobil sein.

Mit einer Firebird-Embedded-DB ist eine Anwendung mobil. Einzige Voraussetzung: Man muß sie von einem Speichermedium, das RW zuläßt, starten. Mit anderen Worten: von CD oder DVD geht nicht, da das Programm ja in die Datenbank schreiben will, von einem USB-Stick dagegen schon.

Den Umgang mit Datenbanken muß man sich natürlich erst erarbeiten.

[Jumpy]

Die Frage scheint mir auch zu sein, wie du die Daten anschließend brauchst um deine Graphen zu zeichnen und ob du die Daten nachher in irgendweiner Form dauerhaft speichern willst oder ob das nicht wichtig ist, da du ja immer noch die CSVs hast.

Weitere Möglichkeiten wären (z.B. wenn nicht dauerhaft gespeichert werden muss) eine "In-Memory-Table" z.B. mit einem TClientDataset.
Oder erst alle Dateien zusammenpacken (z.B. in einer Stringlist) und dass dann in StreamForm in dein Array schreiben.

[Bjoerk]

Du könntest dir auch überlegen eine eigene Liste zu schreiben die die gewünschten Funktionalitäten hat. Die kann ja intern mit deinem Array arbeiten?

Delphi-Quellcode:

  TFloatPoint = record
    X, Y: double;
    procedure Clear;
  end;

  TFloatPoints = class
  private
    FItems: array of TFloatPoint;
    function GetItems(Index: integer): TFloatPoint;
    procedure SetItems(Index: integer; const Value: TFloatPoint);
  public
    function Count: integer;
    function Add(const Value: TFloatPoint): integer;
    procedure Insert(const Index: integer; const Value: TFloatPoint);
    procedure Delete(const Index: integer);
    procedure AddPoints(Value: TFloatPoints);
    procedure Assign(Value: TFloatPoints);
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);
    procedure Draw(const Canvas: TCanvas; const ppMM: double);
    procedure Clear;
    property Items[Index: integer]: TFloatPoint read GetItems write SetItems; default;
    destructor Destroy; override;
  end;

[Takeo]

Zitat von Jumpy:

Die Frage scheint mir auch zu sein, wie du die Daten anschließend brauchst um deine Graphen zu zeichnen und ob du die Daten nachher in irgendweiner Form dauerhaft speichern willst oder ob das nicht wichtig ist, da du ja immer noch die CSVs hast.

Ich brauch die Daten schon als Art Array, weil ich habe ein anderes Array in dem Informationen über die Daten stehen (weil das Gerät, welches die csvs erstellt nur die Daten reinklatscht und keine Überschriften vergeben kann). In dem anderen Array steht der Name der Datenreihe und eine Indexnummer, mit dieser Indexnummer wollte ich dann die passende Spalte für den Graphen auswählen. Da die erste Spalte immer der Zeitstempel ist kann dann der Graph z.B. aus x-Achse = Spalte 1 und Y-Achse gleich Spalte "Indexnummer" gebastelt werden.

Dauerhaft speichern brauch ich nicht, es reicht wenn man nen Screenshot von dem Graphen macht, die Daten bleiben ja als csv erhalten.

Oder ist auch möglich die csv schon als direkter Ansatz für die Datenreihe zu benutzen?

[himitsu]

Es gibt noch CDs?

Aber in diesem Fall könnte man die DB ja einfach in ein Benutzterverzeichnis kopieren und dort verwenden.
Ist dann zwar nicht mehr portabel, aber "relativ mobil" schon und es startet zumindestens noch.