Menu
▾
▴
[Jcl-checkins] jcl/source/common JclDITs.pas,1.4,1.5 JclZlib.pas,1.6,1.7
|
From: Robert R. <rro...@us...> - 2004-05-31 22:04:31
|
Update of /cvsroot/jcl/jcl/source/common In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10311/source/common Modified Files: JclDITs.pas JclZlib.pas Log Message: added PJH disclaimer; some formatting. Not longer generated file. Index: JclDITs.pas =================================================================== RCS file: /cvsroot/jcl/jcl/source/common/JclDITs.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** JclDITs.pas 8 May 2004 08:44:17 -0000 1.4 --- JclDITs.pas 31 May 2004 22:04:22 -0000 1.5 *************** *** 1,7 **** - {**************************************************************************************************} - { WARNING: JEDI preprocessor generated unit. Do not edit. } - {**************************************************************************************************} - - {**************************************************************************************************} { } --- 1,2 ---- *************** *** 20,24 **** { are Copyright (C) 2001 Peter J. Haas. All Rights Reserved. } { } ! { The Original Code Version 2.0 is: JclDITs.pas. } { The Initial Developer of the Original Code V2.0 is Peter J. Haas. Portions created by } { Peter J. Haas are Copyright (C) 2004 Peter J. Haas. All Rights Reserved. } --- 15,19 ---- { are Copyright (C) 2001 Peter J. Haas. All Rights Reserved. } { } ! { The Original Code Version 2.0 is: JclDITs.pas. } { The Initial Developer of the Original Code V2.0 is Peter J. Haas. Portions created by } { Peter J. Haas are Copyright (C) 2004 Peter J. Haas. All Rights Reserved. } *************** *** 26,31 **** { of Peter J. Haas (de...@pj...) located at http://delphi.pjh2.de/ } { } { Contributor(s): } ! { Peter J. Haas (PeterJHaas), jed...@pj... } { Robert Rossmair (rrossmair) } { } --- 21,34 ---- { of Peter J. Haas (de...@pj...) located at http://delphi.pjh2.de/ } { } + {--------------------------------------------------------------------------------------------------} + { } + { NOTE: As of 2004-05-15, Peter J. Haas has stopped maintaining code he donated to the JCL. } + { He is not to be held responsible for modifications applied after this date. } + { Peter J. Haas no longer wants to be associated with Project JEDI. } + { } + {--------------------------------------------------------------------------------------------------} + { } { Contributor(s): } ! { Peter J. Haas (peterjhaas) } { Robert Rossmair (rrossmair) } { } *************** *** 45,67 **** {**************************************************************************************************} - - // Last modified: $Date$ // For history see end of file - {$I jcl.inc} - unit JclDITs; interface uses SysUtils; - - - - - //-------------------------------------------------------------------------------------------------- --- 48,62 ---- {**************************************************************************************************} // Last modified: $Date$ // For history see end of file {$I jcl.inc} unit JclDITs; interface + uses SysUtils; //-------------------------------------------------------------------------------------------------- *************** *** 69,73 **** //-------------------------------------------------------------------------------------------------- - type TISODateTimeOption = (dtoDate, dtoTime, dtoMilliseconds, dtoBasic); --- 64,67 ---- *************** *** 155,165 **** function ISOStrToDateTimeDef(const Value: String; const Default: TDateTime): TDateTime; - - //-------------------------------------------------------------------------------------------------- // Float Data Interchange (ISO 31-0) //-------------------------------------------------------------------------------------------------- - // Converts a float value to a string // DecimalSeparator is decimal separator, no thousand separator --- 149,156 ---- *************** *** 189,193 **** function ISOStrToFloatDef(const Value: String; const Default: Extended): Extended; - implementation --- 180,183 ---- *************** *** 195,205 **** JclResources; - - //================================================================================================== // Date and Time Data Interchange (ISO 8601) //================================================================================================== - // Convert TDateTime to string function ISODateTimeToStrCustom(const Value: TDateTime; --- 185,192 ---- *************** *** 208,212 **** var DTFormat: String; ! begin // Parameter check --- 195,199 ---- var DTFormat: String; ! begin // Parameter check *************** *** 245,252 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts TDateTime to date string 'YYYY-MM-DD' function ISODateToStr(const Value: TDateTime): String; --- 232,237 ---- *************** *** 255,262 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts TDateTime to time string 'hh:mm:ss' function ISOTimeToStr(const Value: TDateTime): String; --- 240,245 ---- *************** *** 265,272 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts TDateTime to date time string 'YYYY-MM-DDThh:mm:ss' function ISODateTimeToStr(const Value: TDateTime): String; --- 248,253 ---- *************** *** 275,282 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts TDateTime to date string 'YYYYMMDD' function ISOBasicDateToStr(const Value: TDateTime): String; --- 256,261 ---- *************** *** 285,292 **** end; - //-------------------------------------------------------------------------------------------------- - // Convert TDateTime to time string 'hhmmss' function ISOBasicTimeToStr(const Value: TDateTime): String; --- 264,269 ---- *************** *** 295,302 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts TDateTime to date time string 'YYYYMMDDThhmmss' function ISOBasicDateTimeToStr(const Value: TDateTime): String; --- 272,277 ---- *************** *** 305,312 **** end; - //-------------------------------------------------------------------------------------------------- - function CheckDateTimeFormat(const Value, DTFormat: String): Boolean; var --- 280,285 ---- *************** *** 332,339 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO date string to TDateTime and replace the date part of Date function TryISOStrToDate(const Value: String; var Date: TDateTime): Boolean; --- 305,310 ---- *************** *** 360,367 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO time string to TDateTime and replace the time part of Time function TryISOStrToTime(const Value: String; var Time: TDateTime): Boolean; --- 331,336 ---- *************** *** 440,447 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO time stamp to a TDateTime, // date and time are separated with 'T' or ' ' --- 409,414 ---- *************** *** 464,471 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO date string to TDateTime // Valid strings: --- 431,436 ---- *************** *** 482,489 **** end; - //-------------------------------------------------------------------------------------------------- - function ISOStrToDateDef(const Value: String; const Default: TDateTime): TDateTime; begin --- 447,452 ---- *************** *** 493,500 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO time string to TDateTime // Valid strings: --- 456,461 ---- *************** *** 512,519 **** end; - //-------------------------------------------------------------------------------------------------- - function ISOStrToTimeDef(const Value: String; const Default: TDateTime): TDateTime; begin --- 473,478 ---- *************** *** 523,530 **** end; - //-------------------------------------------------------------------------------------------------- - // Converts an ISO time stamp to a TDateTime, // date and time are separated with 'T' or ' ' --- 482,487 ---- *************** *** 539,546 **** end; - //-------------------------------------------------------------------------------------------------- - function ISOStrToDateTimeDef(const Value: String; const Default: TDateTime): TDateTime; begin --- 496,501 ---- *************** *** 549,558 **** end; - //================================================================================================== // Float Data Interchange (ISO 31-0) //================================================================================================== - function ISOFloatRecToStr(const Rec: TFloatRec; DecimalSeparator: TISOFloatDecimalSeparator{$IFDEF SUPPORTS_DEFAULTPARAMS} = fdsComma{$ENDIF}): String; --- 504,511 ---- *************** *** 597,604 **** end; - //-------------------------------------------------------------------------------------------------- - // Convert a float value to string // with DecimalSeparator as decimal separator and without thousand separator --- 550,555 ---- *************** *** 617,624 **** end; - //-------------------------------------------------------------------------------------------------- - // Convert a string to a float value // Decimal separator ',' or '.' --- 568,573 ---- *************** *** 661,668 **** end; - //-------------------------------------------------------------------------------------------------- - function ISOStrToFloat(const Value: String): Extended; begin --- 610,615 ---- *************** *** 675,682 **** end; - //-------------------------------------------------------------------------------------------------- - function ISOStrToFloatDef(const Value: String; const Default: Extended): Extended; begin --- 622,627 ---- *************** *** 685,690 **** end; - // **************************************************************************** - // History: // 2001-09-10 Version 1.0 --- 630,633 ---- *************** *** 700,705 **** // // $Log$ ! // Revision 1.4 2004/05/08 08:44:17 rrossmair ! // introduced & applied symbol HAS_UNIT_LIBC // // Revision 1.4 2004/05/05 05:50:40 rrossmair --- 643,648 ---- // // $Log$ ! // Revision 1.5 2004/05/31 22:04:22 rrossmair ! // added PJH disclaimer; some formatting. Not longer generated file. // // Revision 1.4 2004/05/05 05:50:40 rrossmair Index: JclZlib.pas =================================================================== RCS file: /cvsroot/jcl/jcl/source/common/JclZlib.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** JclZlib.pas 9 May 2004 00:20:56 -0000 1.6 --- JclZlib.pas 31 May 2004 22:04:22 -0000 1.7 *************** *** 1,13 **** {******************************************************************************} { } - { WARNING: This file is generated automatically by preprocessor. } - { } - { Manual modifications will be lost on next release. Please modify the } - { original source file. } - { } - {******************************************************************************} - - {******************************************************************************} [...1076 lines suppressed...] --- 2119,2124 ---- end; ! // History: // Revision 1.7 2004/05/08 08:44:18 rrossmair // introduced & applied symbol HAS_UNIT_LIBC *************** *** 1996,2000 **** // add prototypes for standalone library / JCL // be careful with any modification to avoid breaks ! // // 2004-03-20 // - Bugfix: TJclGZipReader.Create: read multi-part number --- 2142,2146 ---- // add prototypes for standalone library / JCL // be careful with any modification to avoid breaks ! // // 2004-03-20 // - Bugfix: TJclGZipReader.Create: read multi-part number |