Browse Source

+ Fixed bug in settext

michael 26 years ago
parent
commit
27aca567d2
1 changed files with 5 additions and 2 deletions
  1. 5 2
      fcl/inc/stringl.inc

+ 5 - 2
fcl/inc/stringl.inc

@@ -560,7 +560,7 @@ begin
   SetLength (S,P-PS);
   SetLength (S,P-PS);
   System.Move (PS^,Pointer(S)^,P-PS);
   System.Move (PS^,Pointer(S)^,P-PS);
   If P^=#13 then P:=P+1;
   If P^=#13 then P:=P+1;
-  If P^<>#0 then 
+  If P^=#10 then 
     P:=P+1; // Point to character after #10(#13)
     P:=P+1; // Point to character after #10(#13)
   Result:=True;
   Result:=True;
 end;
 end;
@@ -941,7 +941,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  1999-07-07 12:34:01  peter
+  Revision 1.6  1999-11-25 13:28:13  michael
+  + Fixed bug in settext
+
+  Revision 1.5  1999/07/07 12:34:01  peter
     * removed debug writeln
     * removed debug writeln
 
 
   Revision 1.4  1999/05/26 13:22:23  michael
   Revision 1.4  1999/05/26 13:22:23  michael