Stringlängenbegrenzung bei 'Writeln'

[gammatester]

Warum ruftst Du 1199 mal append auf? Ich weiß zwar nicht, ob das die Probleme macht; aber sinnlos und geschwindigkeitsmindernd ist es allemal.

Welches ist denn das erste Zeichen was nicht mehr geschrieben wird?

[mkinzler]

Und in welchem Feld steht es?

BTW.: Ich würde mit Stringlisten arbeiten

[himitsu]

PS:
Auch wenn hier schon einiges gesagt wurdem bezüglich sinnlosen/doppelten Aufrufen.

Delphi-Quellcode:

AssignFile(f, 'R_Lager.txt');
Rewrite(f);
try
  for i := 1 to 1200 do
    begin
      ...
      Writeln(f, RecordString);
  end;
finally
  CloseFile(f); 
end;

Man kann aber auch alles in eine StringListe schreiben und dann alles gemeinsam Speichern.


Und selbst die einzelnen Werte/Spalten kann man über eine weitere StringListe übersichtlicher behandeln.

Delphi-Quellcode:

SL := TStringList.Create;
SL.Delimiter := Trenner;
SL.StrictDelimiter := True;
...
SL.Clear;
SL.Add(IntToStr(Lager[i].SchrankNr));
SL.Add(IntToStr(Lager[i].AusschubNr));
...
DieGanzeZeile := SL.DelimitedText;  // GroßeSL.Add(SL.DelimitedText);

[p80286]

@Himitsu
da er angeblich noch D5 einsetzt, sollten wir die Finger vom StriktDelimiter lassen,
und wenn er sich schon bei writeln verläuft ist der Weg über delimitedText vllt. nicht so optimal?

Gruß
K-H

[mkinzler]

Das hatte ich auch schon vorgeschlagen, aber Verbesserungsvorschläge werden hier neuderdings grundsätzlich ignoriert.

[Sir Rufo]

Solange wie auch keine weitere Frage zu den Daten gestellt wird ist die lapidare Empfehlung mit einer StringList die Zeile aufzubauen auch kontraproduktiv (wenn man es ganz genau nimmt).

Laut RFC darf ein Feld auch ein Zeilenende beinhalten (das Feld muss dann aber qequoted sein).
Mit einer StringList bekomme ich dabei aber den amtlichen Knieschuss

Alerdings nimmt der TE es mit dem RFC auch nicht so genau

[mkinzler]

Ich werde es mir merken und in der Zukunft meine Klappe halten!

[himitsu]

Hmmm, beim Auslesen muß StrictDelemiter True sein, sonst gibt es da Problemchen,
aber wenn man Dieses beim Schreiben/Zusammenstelllen auf False setzt, dann sollten auch Zeilenumbrüche gequotet werden.

Aber wenn das Delphi eh so alt ist ... ich glaub das StrictDelemiter wurde eh erst später eingeführt?




Nja, was auch ginge, das wäre Write, um die einzelnen Spalten zusammenzustellen.
Dieser mehrzeilige Befehl ist halt nicht so schön.
So oder so, es gibt ja mehrere Wege, um dieses aufzuteilen.

Delphi-Quellcode:

Write(Datei, Spalte1, ';');
Write(Datei, Spalte2, ';');
Write(Datei, Spalte3, ';');
Write(Datei, Spalte4, ';');
Write(Datei, Spalte5, ';');
...
WriteLn(Datei, LetzteSpalte);

Oder eben auch als ErstelleCSVZeile-Befehl.