From: <tw...@us...> - 2020-01-01 16:46:36
|
Revision: 3025 http://sourceforge.net/p/gexperts/code/3025 Author: twm Date: 2020-01-01 16:46:34 +0000 (Wed, 01 Jan 2020) Log Message: ----------- * new cond. define SUPPORTS_WARN_USE_BEFORE_DEF (Delphi 6 does not support it) * turn off platform warnings for all dzlib units * got rid of warning in u_dzClassUtils.TStream_ReadStringLn Modified Paths: -------------- trunk/ExternalSource/dzlib/dzlib.inc trunk/ExternalSource/dzlib/u_dzClassUtils.pas Modified: trunk/ExternalSource/dzlib/dzlib.inc =================================================================== --- trunk/ExternalSource/dzlib/dzlib.inc 2020-01-01 16:37:28 UTC (rev 3024) +++ trunk/ExternalSource/dzlib/dzlib.inc 2020-01-01 16:46:34 UTC (rev 3025) @@ -3,6 +3,8 @@ {$IFDEF DELPHI7_UP} // TBitBtn.WordWrap was introduced in Delphi 7 {$DEFINE HAS_BITBTN_WORDWRAP} +// So was the $WARN USE_BEFORE_DEF define +{$DEFINE SUPPORTS_WARN_USE_BEFORE_DEF} {$ENDIF} {$IFDEF DELPHI2005_UP} @@ -27,3 +29,7 @@ {$DEFINE THANDLESTREAM_CREATE_HANDLE_IS_THANDLE} {$ENDIF} +{$WARN SYMBOL_PLATFORM OFF} +{$WARN UNIT_PLATFORM OFF} + + Modified: trunk/ExternalSource/dzlib/u_dzClassUtils.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzClassUtils.pas 2020-01-01 16:37:28 UTC (rev 3024) +++ trunk/ExternalSource/dzlib/u_dzClassUtils.pas 2020-01-01 16:46:34 UTC (rev 3025) @@ -1052,7 +1052,9 @@ // Turn Warning off, because Delphi 2007 thinks that the variable might not have been initialized. // But that is not the case. // 2019-06-03 pp +{$IFDEF SUPPORTS_WARN_USE_BEFORE_DEF} {$WARN USE_BEFORE_DEF OFF} +{$ENDIF} function TStream_ReadStringLn(_Stream: TStream; out _s: string): Integer; var @@ -1089,7 +1091,9 @@ end; _Stream.Position := NewPos; end; +{$IFDEF SUPPORTS_WARN_USE_BEFORE_DEF} {$WARN USE_BEFORE_DEF DEFAULT} +{$ENDIF} function TStrings_TryStringByObj(_Strings: TStrings; _Obj: Pointer; out _Value: string): Boolean; var @@ -2042,7 +2046,7 @@ function TStringList_CreateFrom(const _sa: array of string; _Sorted: Boolean = False): TStringList; var - i: integer; + i: Integer; begin Result := TStringList.Create; for i := Low(_sa) to High(_sa) do This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |