+ Added bug #250

bugs/bug0250.pp

@@ -0,0 +1,24 @@
+program testme;
+
+// Removing this switch removes the bug !!
+{$H+}
+
+var A : String;
+    P : PChar;
+    I : longint;
+    
+begin
+  P := 'Some sample testchar';
+  A := Ansistring(P);
+  Writeln ('A : ',A);
+  for I:=1 to length(A)-1 do
+    begin
+    A:='Some small test';
+    A:=A+' ansistring';
+    Writeln ('A : ',A);
+    If A<>'' then 
+      Writeln ('All is fine')
+    else
+      writeln ('Oh-oh!');
+    end;
+end.

bugs/readme.txt

@@ -342,4 +342,5 @@ bug0243.pp   Arguments of functions are computed from right to left this
 bug0244.pp   nested procedures can't have same name as global ones
 bug0245.pp   assigning pointers to address of consts is allowed (refused by BP !) 
 bug0246.pp   const para can be changed without error
-bug0249.pp   procedure of object cannot be assigned to property.
+bug0249.pp   procedure of object cannot be assigned to property.
+bug0250.PP   error with Ansistrings and loops.