TStringlist wieder mit Trennzeichen speichern

[zaphood]

Der code ist ein wenig kleiner geworden

Aus

Delphi-Quellcode:

write(Datei, Artikelnummer, ';');
write(Datei, '10', ';');
write(Datei, Kapazitaet, ';');
write(Datei, '1', ';');
write(Datei, '1', ';');
write(Datei, '', ';');
write(Datei, Auftragsnummer, ';');
write(Datei, '');

wurde
write(Datei, Artikelnummer+';'+'10'+';'+Kapazitaet+';'+'1'+';'+'1'+';'+';'+Auftragsnummer+';');