pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Remove fixed ShortDateFormat := 'yyyy-mm-dd'

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1267 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
brandysb
2010-08-01 12:56:00 +00:00
parent d8564fc170
commit c5c5822365
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/onguard/source/ogutil.pas
View File

@ -685,9 +685,8 @@ function OgFormatDate(Value : TDateTime) : string;
var var
S : string; S : string;
begin begin
ShortDateFormat := 'yyyy-mm-dd'; { ShortDateFormat := 'yyyy-mm-dd';
{ S := ShortDateFormat;
S := ShortDateFormat;
if Pos('yyyy', S) = 0 then if Pos('yyyy', S) = 0 then
Insert('yy', S, Pos('yy', S)); Insert('yy', S, Pos('yy', S));
if Pos('MMM', S) > 0 then if Pos('MMM', S) > 0 then