paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic

Browse Source 
git-svn-id: trunk@28314 -
This commit is contained in:
reiniero 2014-08-05 10:30:23 +00:00
parent 6e27aaebbb
commit bd37d804fc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -525,19 +525,22 @@ begin
end;
// Parses string-formatted date into TDateTime value
// Expected format: '2013-12-31 ' (without ')
Function ParseSQLiteDate(S : ShortString) : TDateTime;
Var
Year, Month, Day : Integer;
begin
Result:=0;
If TryStrToInt(NextWord(S,'-'),Year) then
if TryStrToInt(NextWord(S,'-'),Month) then
if TryStrToInt(NextWord(S,' '),Day) then
Result:=0;
If TryStrToInt(NextWord(S,'-'),Year) then
if TryStrToInt(NextWord(S,'-'),Month) then
if TryStrToInt(NextWord(S,' '),Day) then
Result:=EncodeDate(Year,Month,Day);
end;
// Parses string-formatted time into TDateTime value
// Expected format '23:59:59.999' (without ')
Function ParseSQLiteTime(S : ShortString; Interval: boolean) : TDateTime;
Var