Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Setz das try mal weiter nach hinten.
sl1:= TStringList.Create;
sl2:= TStringList.Create;
try
...
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Mit Create vor dem ersten Zugriff :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Dann versuch es mal so:procedure TForm1.Button5Click(Sender: TObject);
Var sl1 : TStringList;
i : Integer;
begin
Memo1.Lines.BeginUpdate;
try
sl1:= TStringList.Create;
try
for i := 0 to FileListBox1.Items.Count - 1 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
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
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
TFileStream wäre auch noch eine Möglichkeit. IMO zumindest eine bessere als immer wieder in einem Memo Zeilen hinzuzufügen.