WriteLn hackt letzte Zeile ab

[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