Forum: Programmieren allgemein
by himitsu,
23. Jan 2020
Upps, hatte auf die Schnelle nur einmal dieses //zu Testzweck später löschen gesehen und es auf den ganzen ELSE-Block bezogen, anstatt nur auf die Debugging-Label-Ausgabe :oops:
Forum: Programmieren allgemein
by himitsu,
22. Jan 2020
Diese vielen WRITE lassen kaum erkennen was wo steht.
Wie wäre es, wenn man eine Zeile im Code mit einer Spalte in der Datei gleichsetzt? :zwinker:
write(Datei, Artikelnummer, ';');
write(Datei, '10', ';');
write(Datei, Kapazitaet, ';');
write(Datei, '1', ';');
write(Datei, '1', ';');
write(Datei, '', ';');
write(Datei, Auftragsnummer, ';');
write(Datei, '');
Forum: Programmieren allgemein
by himitsu,
21. Jan 2020
Und ein Ressourcenschutzblock, falls es beim Rewrite knallt, weil die Datei nicht geschrieben werden kann, und dann ein Speicherleck entsteht.
Ich weiß nicht ob es im FPC sowas gibt, aber warum sollte es sowas nicht geben.
In Delphi gibt es die IOUtils: TFile.WriteAllText(Filename, SL.DelimitedText);
Und dann gibt es natürlich auch noch den TFileStream, welchen man ebenfalls gern benutzen...