mehrere Dateien in 1

[SaFu]

Mosche

hab immernoch das Problem mit meinen Log Dateien

Und zwar möchte ich jetzt alle inhalte aus allen log datein (bis zu 31) in eine speichern.
Wie stell ich das am besten an??
Hab bist jetzt das hier:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i : Integer;
begin
Memo1.Lines.BeginUpdate;
 try
  for I := 1 to 10000 do

  sl1:= TStringList.Create;
  sl1:= TStringList.Create;
  sl1.LoadFromFile(FileListBox1.FileName);

  sl2:= sl1;
  Memo1.Text:= sl2.Text;
 Finally
   Memo1.Lines.EndUpdate;
 end;
end;

[Luckie]

Und wo ist jetzt dein Problem bzw. wie lautet deine Frage?

[Bernhard Geyer]

Zitat von fuknersascha:

Und zwar möchte ich jetzt alle inhalte aus allen log datein (bis zu 31) in eine speichern.
Wie stell ich das am besten an??

Willst du später noch die Dateien unterscheiden können (-> ZIP-Format und konsorten)

[Sharky]

Hai fuknersascha,

schaue Dir deine Code noch mal genau an
Zu erzeugst erst 10 000 x eine Instanz von TStringList (sl1).
Dann erzeugst Du noch einmal ein.
Dann lädst Du Text in sl1.
Und dann weisst Du die Instanz von sl1 der Variablen sl2 zu.

Das sind wohl mehrere Fehler im Code und im Design.

[Jelly]

Ähm... In deinem Code sind mehr Fehler drin, wie man in so wenig Zeilen überhaupt schreiben kann. Sorry

• Um deine For-Schleife fehlt ein begin...end
• Wieso erzeugst du sl1 zweimal
• Du lädst (vorausgesetzt die begin-end um die For-Schleife werden gesetzt) 10000 mal das Gleiche in sl1 rein?
• Mit Memo1.Text wird dein Memo1 jedesmal überschrieben, jedoch nie erweitert

Das sieht mir ziemlich einfach mal so dahingeklatscht aus. Beachte mal meine Punkte, und ich denke du wirst schon ein gutes Stück näher ans Ziel kommen.

[Hansa]

Jo, mit Verlaub gesagt : dein Quelltext ist Schwachsinn. Na gut, Unfug. Eventuell wäre zu überlegen, die Dateien einfach aneinanderzuhängen in diesem Stil : copy Datei1 + Datei2 DateiGesamt Kommt die 31 von Tage pro Monat her ?

[DeddyH]

TFileStream wäre auch noch eine Möglichkeit. IMO zumindest eine bessere als immer wieder in einem Memo Zeilen hinzuzufügen.

[taaktaak]

Grundsätzliche Frage:
Soll das eine einmalige Reorganisation vorhandener Dateien werden, die inhaltlich nicht verändert werden? Dann im DOS-Fenster mit copy xxx verketten und nix selber machen! Wenn nicht, dann musst du natürlich Delphi bemühen.

[SaFu]

Zitat von Jelly:

Ähm... In deinem Code sind mehr Fehler drin, wie man in so wenig Zeilen überhaupt schreiben kann. Sorry

• Um deine For-Schleife fehlt ein begin...end
• Wieso erzeugst du sl1 zweimal
• Du lädst (vorausgesetzt die begin-end um die For-Schleife werden gesetzt) 10000 mal das Gleiche in sl1 rein?
• Mit Memo1.Text wird dein Memo1 jedesmal überschrieben, jedoch nie erweitert

Das sieht mir ziemlich einfach mal so dahingeklatscht aus. Beachte mal meine Punkte, und ich denke du wirst schon ein gutes Stück näher ans Ziel kommen.

ja danke ein paar Fehler habe ich auch schon gesehen versuch das mal umzusetzen

Zitat von Hansa:

Jo, mit Verlaub gesagt : dein Quelltext ist Schwachsinn. Na gut, Unfug. Eventuell wäre zu überlegen, die Dateien einfach aneinanderzuhängen in diesem Stil : copy Datei1 + Datei2 DateiGesamt Kommt die 31 von Tage pro Monat her ?

Es wird für Jeden Tag eine Datei generiert als wenn es 30 Tag sind dann nur 30 Dateien

Zitat von DeddyH:

TFileStream wäre auch noch eine Möglichkeit. IMO zumindest eine bessere als immer wieder in einem Memo Zeilen hinzuzufügen.

Das Memo dient immo nur zur meiner Ansicht das schmeis ich später raus und speicher die StringList direkt in einen neue datei

[DeddyH]

Na gut, mit Stringlisten kannst Du das ja so machen:
- Erzeugen einer "Gesamt"-Stringliste und einer "Teil"-Stringliste
- in einer Schleife Teilliste aus Datei laden und mit AddStrings der Gesamtliste hinzufügen
- Gesamtliste abspeichern
- beide Listen freigeben