* changed some var parameters in out parameters to avoid warnings

git-svn-id: trunk@4341 -

rtl/objpas/sysutils/dati.inc

@@ -86,7 +86,7 @@ begin
   result := TimeStamp.Time + comp(timestamp.date)*msecsperday;
 end ;
 
-Function TryEncodeDate(Year,Month,Day : Word; Var Date : TDateTime) : Boolean;
+Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean;
 
 var
   c, ya: cardinal;
@@ -112,7 +112,7 @@ begin
    end
 end;
 
-function TryEncodeTime(Hour, Min, Sec, MSec:word; Var Time : TDateTime) : boolean;
+function TryEncodeTime(Hour, Min, Sec, MSec:word; Out Time : TDateTime) : boolean;
 
 begin
   Result:=(Hour<24) and (Min<60) and (Sec<60) and (MSec<1000);
@@ -146,7 +146,7 @@ end;
 {   DecodeDate unpacks the value Date into three values:
     Year, Month and Day   }
 
-procedure DecodeDate(Date: TDateTime; var Year, Month, Day: word);
+procedure DecodeDate(Date: TDateTime; out Year, Month, Day: word);
 var
   ly,ld,lm,j : cardinal;
 begin
@@ -181,7 +181,7 @@ begin
 end;
 
 
-function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;
+function DecodeDateFully(const DateTime: TDateTime; out Year, Month, Day, DOW: Word): Boolean;
 begin
   DecodeDate(DateTime,Year,Month,Day);
   DOW:=DayOfWeek(DateTime);
@@ -192,7 +192,7 @@ end;
 {   DecodeTime unpacks Time into four values:
     Hour, Minute, Second and MilliSecond    }
 
-procedure DecodeTime(Time: TDateTime; var Hour, Minute, Second, MilliSecond: word);
+procedure DecodeTime(Time: TDateTime; out Hour, Minute, Second, MilliSecond: word);
 Var
   l : cardinal;
 begin
@@ -208,7 +208,7 @@ end;
 
 {   DateTimeToSystemTime converts DateTime value to SystemTime   }
 
-procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);
+procedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);
 begin
   DecodeDate(DateTime, SystemTime.Year, SystemTime.Month, SystemTime.Day);
   DecodeTime(DateTime, SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond);
@@ -715,7 +715,7 @@ end ;
 
 {   DateTimeToString formats DateTime to the given format in FormatStr   }
 
-procedure DateTimeToString(var Result: string; const FormatStr: string; const DateTime: TDateTime);
+procedure DateTimeToString(out Result: string; const FormatStr: string; const DateTime: TDateTime);
 begin
   Result := FormatDateTime(FormatStr, DateTime);
 end ;

rtl/objpas/sysutils/datih.inc

@@ -97,15 +97,15 @@ function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
 function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp;
 function TimeStampToMSecs(const TimeStamp: TTimeStamp): comp;
-function TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;
-function TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean;
+function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;
+function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
 function EncodeDate(Year, Month, Day :word): TDateTime;
 function EncodeTime(Hour, Minute, Second, MilliSecond:word): TDateTime;
 function ComposeDateTime(Date,Time : TDateTime) : TDateTime;
-procedure DecodeDate(Date: TDateTime; var Year, Month, Day: word);
-function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;
-procedure DecodeTime(Time: TDateTime; var Hour, Minute, Second, MilliSecond: word);
-procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);
+procedure DecodeDate(Date: TDateTime; out Year, Month, Day: word);
+function DecodeDateFully(const DateTime: TDateTime; out Year, Month, Day, DOW: Word): Boolean;
+procedure DecodeTime(Time: TDateTime; out Hour, Minute, Second, MilliSecond: word);
+procedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);
 function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;
 function DayOfWeek(DateTime: TDateTime): integer;
 function Date: TDateTime;
@@ -120,7 +120,7 @@ function StrToDate(const S: string): TDateTime;
 function StrToTime(const S: string): TDateTime;
 function StrToDateTime(const S: string): TDateTime;
 function FormatDateTime(FormatStr: string; DateTime: TDateTime):string;
-procedure DateTimeToString(var Result: string; const FormatStr: string; const DateTime: TDateTime);
+procedure DateTimeToString(out Result: string; const FormatStr: string; const DateTime: TDateTime);
 Function DateTimeToFileDate(DateTime : TDateTime) : Longint;
 Function FileDateToDateTime (Filedate : Longint) :TDateTime;
 function TryStrToDate(const S: string; out Value: TDateTime): Boolean;