* improved error reporting by printing the type being found in with expressions

git-svn-id: trunk@23019 -

compiler/msg/errore.msg

@@ -640,7 +640,7 @@ parser_e_expr_have_to_be_destructor_call=03077_E_Expression must be destructor c
 parser_e_invalid_record_const=03078_E_Illegal order of record elements
 % When declaring a constant record, you specified the fields in the wrong
 % order.
-parser_e_false_with_expr=03079_E_Expression type must be class or record type
+parser_e_false_with_expr=03079_E_Expression type must be class or record type, got $1
 % A \var{with} statement needs an argument that is of the type \var{record}
 % or \var{class}. You are using \var{with} on an expression that is not of
 % this type.

compiler/msgidx.inc

@@ -960,7 +960,7 @@ const
   option_info=11024;
   option_help_pages=11025;
 
-  MsgTxtSize = 67825;
+  MsgTxtSize = 67833;
 
   MsgIdxMax : array[1..20] of longint=(
     26,92,328,120,87,56,125,26,202,63,

compiler/pstatmnt.pas

@@ -752,7 +752,7 @@ implementation
          else
           begin
             p.free;
-            Message(parser_e_false_with_expr);
+            Message1(parser_e_false_with_expr,p.resultdef.GetTypeName);
             { try to recover from error }
             if try_to_consume(_COMMA) then
              begin