append in Tstringlist einbauen

[Jürgen Thomas]

Hallo,

eine Variante wäre:

Delphi-Quellcode:

var daten: TStringList;
    sTemp: string;
daten := TStringlist.create;
daten.loadfromfile('zwischenspeicher.txt');
sTemp := stringreplace (daten.text, #13#10, '', [rfreplaceall]);
daten.loadfromfile('datensatz.csv');
//  wenn Du ein neues Leerzeichen hinnimmst, dann:
daten.Add(sTemp);
//  oder direkt:
daten.Text := daten.Text + sTemp;
//  und abschließend speichern
daten.savetofile('datensatz.csv');

Alternativ kannst Du auch direkt an einen TFileStream anhängen.

Bist Du sicher, dass Du jetzt ohne jedes Leerzeichen arbeiten willst? (Ich habe Deine anderen Diskussionen zum Thema CSV nur am Rande verfolgt.) Jürgen