* Need types in write declatations, or fpdoc chokes

git-svn-id: trunk@38612 -

rtl/inc/system.fpd

@@ -61,18 +61,18 @@ Function SizeOf (X : TAnyType) : Longint;
 Procedure Str (Var X : TNumericType; Var S : String);
 Function Succ (X : TOrdinal) : TOrdinal;
 Procedure Val (const S : string;Var V;var Code : word);
-Procedure Write (V1);
-Procedure Write (V1,V2);
-Procedure Write (V1,V2,v3);
-Procedure WriteLn (V1);
-Procedure WriteLn (V1,V2);
-Procedure WriteLn (V1,V2,v3);
-Procedure Write (var F : Text; V1);
-Procedure Write (var F : Text; V1,V2);
-Procedure Write (var F : Text; V1,V2,v3);
-Procedure WriteLn (var F : Text; V1);
-Procedure WriteLn (var F : Text; V1,V2);
-Procedure WriteLn (var F : Text; V1,V2,v3);
+Procedure Write (V1 : Type1);
+Procedure Write (V1 : Type1; V2 : type2);
+Procedure Write (V1 : Type1; V2 : Type2; V3 : Type3);
+Procedure WriteLn (V1 : Type1);
+Procedure WriteLn (V1 : Type1; V2 : type2);
+Procedure WriteLn (V1 : Type1; V2 : Type2; V3 : Type3);
+Procedure Write (Var F : Text; V1 : Type1);
+Procedure Write (Var F : Text; V1 : Type1; V2 : type2);
+Procedure Write (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
+Procedure WriteLn (Var F : Text; V1 : Type1);
+Procedure WriteLn (Var F : Text; V1 : Type1; V2 : type2);
+Procedure WriteLn (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
 Function Copy(S : AStringType; Index,Count : SizeInt) : String;
 Function Copy(A : DynArrayType; Index,Count : SizeInt) : DynArray;
 Procedure SetLength(Var S : AStringType; Len : SizeInt);