WriteLn hackt letzte Zeile ab

[Luckie]

Lass mal aller Funktionen weg. Schreib und lese die Datei nur. Wenn da alles klappt, liegt es an deinen Funktionen, die du zwischendurch áufrufst.

[gammatester]

Das Verhalten tritt auf, wenn man Closefile(txtZ); vergißt.

[rokli]

... tja es wurde dadurch nicht besser....

Auffällig ist, dass am Ende kein Return steht (siehe Bild).

Wenn ich ein CR LF dran hänge, dann fehlen mir <009> am Ende der Datei

CloseFilge(txtZ) kommt später, da ich die Quelldatei noch in eine (Archiv) Datei kopieren will, und anschließend die Quelle löschen muss.

Aber ich hol den Close mal nach oben!

[rokli]

gammatester - Du bist ein ganz Großer!

Delphi-Quellcode:

   for intHelp := 0 to libFiles.Count - 1 do begin
      AssignFile(txtQ, strQuelle + libFiles.Items[intHelp]);
      Reset(txtQ);
      AssignFile(txtZ, strZiel + libFiles.Items[intHelp]);
      ReWrite(txtZ);
      // 1. Kopieren und evtl. Konvertieren
      while not Eof(txtQ) do begin
         ReadLn(txtQ, strLine);
{         if strConvert = 'true' then begin
            strLine   := dvbk_ConvANSItoDOS(strLine);
         end;
         strLine      :=   f_SonderZ(strLine);}
         WriteLn(txtZ, strLine);
      end;
      CloseFile(txtZ);

      // 2. Sichern
      if strArchiv <> '' then begin

jetzt funzt es!

TKS euch Beiden!!

Grüße
Rolf