FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Don Sep 15 00:00:18 CEST 2005


Index: freexp/docform.pas
===================================================================
RCS file: /server/cvs/freexp/docform.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- freexp/docform.pas	1 Jan 2005 11:16:27 -0000	1.21
+++ freexp/docform.pas	14 Sep 2005 01:26:26 -0000	1.22
@@ -12,7 +12,7 @@
 { --------------------------------------------------------------- }
 { Originalautor           : Peter Mandrella                       }
 { Datum                   : Nov. 1991                             }
-{ $Id: docform.pas,v 1.21 2005/01/01 11:16:27 mw Exp $ }
+{ $Id: docform.pas,v 1.22 2005/09/14 01:26:26 jm Exp $ }
 {$R-}
 {$M 32768,0,655360}
 
@@ -772,13 +772,14 @@
       {   das Schreiben des Vorspanns in das Temp-File. }
 
     if (ih=0) then begin
-      if wbuf='' then begin
-           inc(nr12log);
-           nr12flg:=true;
-           if (preproz=0) or (preproz=2) then writeln(t3,s);
-         end else begin
-           if (preproz=0) or (preproz=2) then writeln(t3,rmark,sp(rand-2),s);
-         end;
+      if wbuf='' then begin
+           inc(nr12log);
+           nr12flg:=true;
+           if (preproz=0) or (preproz=2) then writeln(t3,s);
+         end else begin
+           if (preproz=0) or (preproz=2) then
+             if s<>'' then writeln(t3,rmark,sp(rand-2),s) else writeln(t3);
+	         end;
         inc(vorlog);
         end;
 
@@ -2084,6 +2085,9 @@
 end.
 {
   $Log: docform.pas,v $
+  Revision 1.22  2005/09/14 01:26:26  jm
+  JM: kl. Bugfix um Leerzeichen in Leerzeilen im Vorspann zu vermeiden
+
   Revision 1.21  2005/01/01 11:16:27  mw
   MW: - Willkommen im Jahr 2005
 



Mehr Informationen über die CVS-List Mailingliste