Stringlängenbegrenzung bei 'Writeln'

[roadrunner-S51]

@Bernhard Geyer: Danke, das stimmt, das ist formal nicht ganz korrekt, aber die Datei ist die richtige. Also den Fehler kann man schonmal ausschließen.

@gammatester: Das Zeichen was nicht mehr geschrieben wird varriert. Es ist quasi immer das 385zigste. Ok, danke, ich könnte die Schleife so umbauen, dass ich die erste Zeile für sich schriebe (wegen Datei neuschreiben) und dann nur och einmal append mache und dann die Zeilen alle ranpacke. Werd ich nach dem Mittag mal testen.

[Sir Rufo]

Ab dem zweiten Durchgang wird die bereits geöffnete Datei wieder zum Anfügen geöffnet.

Delphi-Quellcode:

   AssignFile( f, 'R_Lager.txt' );

   for i := 1 to 1200 do
   begin

     // RecordString zusammenbauen

     if i = 1 then // wenn erste Zeile geschrieben wird Datei neu schrieben
       Rewrite(f);
     Writeln(f, RecordString);
   end;

   CloseFile( f );

EDIT

Du solltest dir aber mal überlegen, ob eine CSVBuilder-Klasse nicht wesentlich geschickter wäre, denn den Code auf Fehler zu überprüfen ist Strafarbeit

Ausserdem besteht hier die Möglichkeit eine nicht konforme CSV-Datei zu erstellen

[gammatester]

Zitat von roadrunner-S51:

Ok, danke, ich könnte die Schleife so umbauen, dass ich die erste Zeile für sich schriebe (wegen Datei neuschreiben) und dann nur och einmal append mache und dann die Zeilen alle ranpacke. Werd ich nach dem Mittag mal testen.

Nein, append wird statt rewrite verwendet, also wäre auch nur noch ein weiteres append fehlerhaft, wie gesagt, ich weiß nicht, ob daß das Problem ist. Warum eigentlich so umständlich? Vor der Schleife ein rewrite, in der Schleife 1200 mal writeln, nach der Schleife close.

[Bjoerk]

Zum Testen mal statt Trenner -> Trenner + sLineBreak schreiben, wahrscheinlich stimmt was mit dem letzten zu schreibenden Stríng nicht und etwas Ordnung würde auch nicht schaden

Delphi-Quellcode:

procedure SaveToFile;
var
  F: TextFile;
  I: integer;
begin
  AssignFile(F, ExtractFilePath(ParamStr(0)) + 'R_Lager.txt');
  {$I-} Rewrite(F); {$I+};
  if IoResult = 0 then
  begin
    try
      for I := Low(Lager) to High(Lager) do
        Writeln(F, GetCsvRecordString(I));
    finally
      CloseFile(f);
    end;
  end;
end;

[roadrunner-S51]

Vielen Dank an alle, das Problem ist gelöst!

Ich habe die Schleife entsprechend eurer Hinweise vereinfacht und statt dem dauernden append ein einfaches writln gelassen.
Somit sieht das ganze nun schreibtechnisch so aus:

Delphi-Quellcode:

if i = 1 then
    begin
      Rewrite(f);
      Writeln(f, RecordString);
    end
    else
    begin
      Writeln(f, RecordString);
    end;

Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber keint Problem, hauptsache am Ende passt alles und das tut es.

Also Danke nochmal!

[Sir Rufo]

Warum ein doppeltes WriteLn ?

[Bjoerk]

Zitat von roadrunner-S51:

Vielen Dank an alle, das Problem ist gelöst!
Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber kein Problem, hauptsache am Ende passt alles und das tut es.

Prüf mal den IntTyp2 auf Sonderzeichen?

[p80286]

[QUOTE=roadrunner-S51;1191899]

Delphi-Quellcode:

assignfile(f,'myfile');
Rewrite(f);
for i:=1 to irgendwas do
  Writeln(f, RecordString);
closefile(f);

Das wäre noch etwas besser.

Zitat von roadrunner-S51:

Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber keint Problem, hauptsache am Ende passt alles und das tut es.

Was bitte treibst Du Da?
Erst nach closefile sind alle vorhandenen Daten in die Datei geschrieben worden.
Solltest du vielleich über die eingebaute Buffergröße gestolpert sein?
3*128 = 384

Gruß
K-H