TStringList in Datei/File speichern und laden

[Dalai]

Du musst die Gesamt-Stringlist erzeugen, dann das Array durchlaufen und die Einzellisten mit AddStrings in die Gesamt-Stringlist packen. Etwa so:

Delphi-Quellcode:

var
    ar: array of TStringList;

procedure blub;
var sl: TStringList;
    i: integer;
begin
    sl:= TStringList.Create;
    try
        for i:= Low(ar) to High(ar) do begin
           sl.AddStrings(ar[i]);
        end;
        sl.SaveToFile(...);
    finally
        sl.Free;
    end;
end;

Beachte aber, dass ein nachträgliches Auseinandernehmen nicht möglich ist, d.h. ein Einlesen geht nur komplett als einzelne Stringliste, es sei denn, du weiß, wie weit du lesen müsstest, aber das ist auch nicht wirklich zuverlässig.

Grüße
Dalai

[Pytroxis]

Zitat von Dalai:

Du musst die Gesamt-Stringlist erzeugen, dann das Array durchlaufen und die Einzellisten mit AddStrings in die Gesamt-Stringlist packen. Etwa so:

Delphi-Quellcode:

var
    ar: array of TStringList;

procedure blub;
var sl: TStringList;
    i: integer;
begin
    sl:= TStringList.Create;
    try
        for i:= Low(ar) to High(ar) do begin
           sl.AddStrings(ar[i]);
        end;
        sl.SaveToFile(...);
    finally
        sl.Free;
    end;
end;

Beachte aber, dass ein nachträgliches Auseinandernehmen nicht möglich ist, d.h. ein Einlesen geht nur komplett als einzelne Stringliste, es sei denn, du weiß, wie weit du lesen müsstest, aber das ist auch nicht wirklich zuverlässig.

Grüße
Dalai

Danke für den Tipp bzw. die Hilfe!
Aber das laden in einzelne Teile ist leider wichtig, werde es dann mal mit Ini-Files probieren, darüber müsste es eigentlich gehen.
Vielen Dank an alle die mir geholfen haben!

[striderx]

Warum fügst du nicht beim Zusammenbauen der Gesamt-Stringlist vor jeder Teilliste jeweils einen Markierungsstring ein, anhand dessen du später nach dem laden die Gesamt-Liste wieder auseinander nehmen kannst?

[Luckie]

Du unterliegst einem Trugschluss. Kompakter Code ist unverständlicher und bedarf mehr Erklärung. Guter, verständliche, selbsterklärender Code benötigt weniger Erklärung. Benenne Variablen und Routinen "sprechend" und der Code erklärt sich fast von selbst.

[samso]

Mein Vorschlag:

Delphi-Quellcode:

var
    ar: array of TStringList;

procedure save(const Filename: String);
var 
  sl: TStringList;
  i: integer;
begin
    sl:= TStringList.Create;
    try
      for i:= Low(ar) to High(ar) do begin
         sl.Add(ar[i].Commatext);
      end;
      sl.SaveToFile(Filename);
    finally
        sl.Free;
    end;
end;
procedure load(const Filename: String);
var 
  sl: TStringList;
  i: integer;
begin
  assert(Length(ar)=0);
    sl:= TStringList.Create;
    try
      s1.LoadFromFile(Filename);
      SetLength(ar, s1.Count);
      for i:= 0 to s1.Count-1 do begin
        ar[i] := TStringList.Create;
        ar[i].Commatext := s1[i]);
      end;
    finally
      sl.Free;
    end;
end;

[Pytroxis]

Zitat von Luckie:

Du unterliegst einem Trugschluss. Kompakter Code ist unverständlicher und bedarf mehr Erklärung. Guter, verständliche, selbsterklärender Code benötigt weniger Erklärung. Benenne Variablen und Routinen "sprechend" und der Code erklärt sich fast von selbst.

Den Gedanken hatte ich auch schon aber letztlich hast du wohl recht

Zitat von samso:

Mein Vorschlag:

Vielen Dank, werde das später auch mal testen.


Dann frage ich noch mal so:
Welche Möglichkeit sollte ich nun nutzen? Sollte ich eher über Ini-Files gehen oder doch lieber über SaveToFile gehen?
Gibt es bei den beiden Methoden irgendwelche Vor- bzw. Nachteile?


Edit:
Was macht Eigentlich assert() ? Habe es schon mehrfach gesehen aber bisher noch keine Erklärung gesehen :O

[striderx]

Zitat von Pytroxis:

Welche Möglichkeit sollte ich nun nutzen? Sollte ich eher über Ini-Files gehen oder doch lieber über SaveToFile gehen?

Ini-Files sind dazu da, um Initialisierung-Information zu speichern und sollten nicht für die Datenhaltung mißbraucht werden. Ich würde mir die Gesamt-Liste mit Trenn-Strings zusammenbastel, mit SaveToFile in eine Datei speichern und dann nach dem Laden sequentiell durchgegehen und anhand der Trennstrings wieder zerlegen.

[Pytroxis]

Zitat von striderx:

Ich würde mir die Gesamt-Liste mit Trenn-Strings zusammenbastel, mit SaveToFile in eine Datei speichern und dann nach dem Laden sequentiell durchgegehen und anhand der Trennstrings wieder zerlegen.

Dann mache ich es auf Basis des Codes eines Vorredners

[striderx]

Zitat von Pytroxis:

Was macht Eigentlich assert() ? Habe es schon mehrfach gesehen aber bisher noch keine Erklärung gesehen :O

Du weißt schon, dass es in Delphi eine Hilfefunktion gibt?