TStringList in Datei/File speichern und laden

[Pytroxis]

Guten Morgen,

prinzipiell ist mir bekannt wie ich eine TStringList speichern und laden könnte, allerdings sieht meine Situation wie folgt aus:
Bei der Variable handelt es sich um ein dynamischen Array, demnach ist das abspeichern erschwert und das laden erst recht.
In meinem Fall nutze ich den SaveDialog , sowie den OpenDialog .
Wie kann ich den Array am geschicktesten abspeichern und laden?
Beim speichern würde ich eine Schleife nehmen, allerdings habe ich beim laden keinen Plan, da ja die Länge des Arrays, beim laden, unbekannt ist

[Bernhard Geyer]

Lade es in eine Stringliste und kopiere es dann mittles ToStringArray in ein TArray<String>

[Pytroxis]

Zitat von Bernhard Geyer:

Lade es in eine Stringliste und kopiere es dann mittles ToStringArray in ein TArray<String>

Kannst du es mir vielleicht etwas genauer erklären? Aus deinem Satz werde ich leider nicht ganz Schlau :S
Beim speichern habe ich auch noch meine Probleme, ist es möglich den gesamten Array in eine Datei zu speichern?

[Bernhard Geyer]

Welche Art von Zeichen beinhaltet dein Array? String es Strings oder "beliebige Binärdaten" (bin jetzt implizit von Strings ausgegangen)?

[Uwe Raabe]

Zitat von Bernhard Geyer:

(bin jetzt implizit von Strings ausgegangen)?

Der Thread-Titel lässt ja auch kaum eine andere Annahme zu. Wenn es also wirklich nicht um ein TArray<string> geht, dann sollte man den besser ändern.

[Pytroxis]

Zitat von Uwe Raabe:

Der Thread-Titel lässt ja auch kaum eine andere Annahme zu. Wenn es also wirklich nicht um ein TArray<string> geht, dann sollte man den besser ändern.

Zitat von Bernhard Geyer:

Welche Art von Zeichen beinhaltet dein Array? String es Strings oder "beliebige Binärdaten" (bin jetzt implizit von Strings ausgegangen)?

Mein Fehler, habe mich hierbei nicht korrekt ausgedrückt.
Es handelt sich um einen Array vom Typ StringList. Jeder Index repräsentiert einen Datensatz (Hier "Integer" einer ListBox).
Demnach ist jeder Array die Items einer ListBox (-> wird für ein dynamisches System benötigt).
Ich möchte nun den Array bzw. die Datensätze in einer Datei speichern und laden, sodass der Benutzer jeder Zeit damit arbeiten kann.

[peterbelow]

Zitat von Pytroxis:

Guten Morgen,

prinzipiell ist mir bekannt wie ich eine TStringList speichern und laden könnte, allerdings sieht meine Situation wie folgt aus:
Bei der Variable handelt es sich um ein dynamischen Array, demnach ist das abspeichern erschwert und das laden erst recht.
In meinem Fall nutze ich den SaveDialog , sowie den OpenDialog .
Wie kann ich den Array am geschicktesten abspeichern und laden?
Beim speichern würde ich eine Schleife nehmen, allerdings habe ich beim laden keinen Plan, da ja die Länge des Arrays, beim laden, unbekannt ist

Ist es notwendig, das die erzeugte Datei wirklich Text ist, oder kann es auch ein Binärformat sein? Wenn das geht kannst Du die TReader- und TWriter-Klassen verwenden:

Delphi-Quellcode:

type
  TStringArrayFiler = class(TObject)
  public
    class procedure LoadArray(var aArray: TArray<string>; const aFilename: string);
    class procedure SaveArray(const aArray: array of string; const aFilename:
        string);

  end;

class procedure TStringArrayFiler.LoadArray(var aArray: TArray<string>; const
    aFilename: string);
var
  LStream: TFilestream;
  LReader: TReader;
  I: Integer;
begin
  LStream := TFilestream.Create(aFilename, fmOpenRead or fmShareDenyWrite);
  try
    LReader := TReader.Create(LStream, 4096);
    try
      SetLength(aArray, LReader.ReadInteger);
      for I := Low(aArray) to High(aArray) do
        aArray[I] := LReader.ReadString;
    finally
      LReader.Free;
    end;
  finally
    LStream.Free;
  end;
end;

class procedure TStringArrayFiler.SaveArray(const aArray: array of string;
    const aFilename: string);
var
  LStream: TFilestream;
  LWriter: TWriter;
  I: Integer;
begin
  LStream := TFilestream.Create(aFilename, fmCreate);
  try
    LWriter := TWriter.Create(LStream, 4096);
    try
      LWriter.WriteInteger(Length(aArray));
      for I := Low(aArray) to High(aArray) do
        LWriter.WriteString(aArray[I]);
    finally
      LWriter.Free;
    end;
  finally
    LStream.Free;
  end;
end;

[p80286]

Noch mal nachgefragt:

Delphi-Quellcode:

var
  myarr : array[0..n] of tstringlist;

ist das so korrekt?

Und das mochtest Du in einem Rutsch speichern?

myarr.savetoFile(); Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Noch mal nachgefragt:

Delphi-Quellcode:

var
  myarr : array[0..n] of tstringlist;

ist das so korrekt?

Vermutlich nicht so ganz:

Zitat von Pytroxis:

Bei der Variable handelt es sich um ein dynamischen Array,

[Pytroxis]

Zitat von peterbelow:

Zitat von Pytroxis:

Guten Morgen,

prinzipiell ist mir bekannt wie ich eine TStringList speichern und laden könnte, allerdings sieht meine Situation wie folgt aus:
Bei der Variable handelt es sich um ein dynamischen Array, demnach ist das abspeichern erschwert und das laden erst recht.
In meinem Fall nutze ich den SaveDialog , sowie den OpenDialog .
Wie kann ich den Array am geschicktesten abspeichern und laden?
Beim speichern würde ich eine Schleife nehmen, allerdings habe ich beim laden keinen Plan, da ja die Länge des Arrays, beim laden, unbekannt ist

Ist es notwendig, das die erzeugte Datei wirklich Text ist, oder kann es auch ein Binärformat sein? Wenn das geht kannst Du die TReader- und TWriter-Klassen verwenden:

Delphi-Quellcode:

type
  TStringArrayFiler = class(TObject)
  public
    class procedure LoadArray(var aArray: TArray<string>; const aFilename: string);
    class procedure SaveArray(const aArray: array of string; const aFilename:
        string);

  end;

class procedure TStringArrayFiler.LoadArray(var aArray: TArray<string>; const
    aFilename: string);
var
  LStream: TFilestream;
  LReader: TReader;
  I: Integer;
begin
  LStream := TFilestream.Create(aFilename, fmOpenRead or fmShareDenyWrite);
  try
    LReader := TReader.Create(LStream, 4096);
    try
      SetLength(aArray, LReader.ReadInteger);
      for I := Low(aArray) to High(aArray) do
        aArray[I] := LReader.ReadString;
    finally
      LReader.Free;
    end;
  finally
    LStream.Free;
  end;
end;

class procedure TStringArrayFiler.SaveArray(const aArray: array of string;
    const aFilename: string);
var
  LStream: TFilestream;
  LWriter: TWriter;
  I: Integer;
begin
  LStream := TFilestream.Create(aFilename, fmCreate);
  try
    LWriter := TWriter.Create(LStream, 4096);
    try
      LWriter.WriteInteger(Length(aArray));
      for I := Low(aArray) to High(aArray) do
        LWriter.WriteString(aArray[I]);
    finally
      LWriter.Free;
    end;
  finally
    LStream.Free;
  end;
end;

Vielen Dank schon einmal!
Aber gibt es vielleicht eine kompaktere Version bzw. eine kompaktere Möglichkeit?

Zitat von Uwe Raabe:

Zitat von p80286:

Noch mal nachgefragt:

Delphi-Quellcode:

var
  myarr : array[0..n] of tstringlist;

ist das so korrekt?

Vermutlich nicht so ganz:

Zitat von Pytroxis:

Bei der Variable handelt es sich um ein dynamischen Array,

Jep du liegst natürlich richtig, bei einem dynamischen Array ist das leider nicht möglich