paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

DateTime, Duration and Time argument creation ( Avoid AV )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@973 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-10-07 12:26:58 +00:00
parent 2d2920da93
commit 08f0ab3254
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/base_service_intf.pas
View File

@ -5743,6 +5743,8 @@ begin
try
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
if ( AObject = nil ) then
AObject := Create();
(AObject as TBaseDateRemotable).AsString := strBuffer
finally
AStore.EndScopeRead();
@ -6513,7 +6515,9 @@ begin
try
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
TDurationRemotable(AObject).Parse(strBuffer);
if ( AObject = nil ) then
AObject := Create();
TDurationRemotable(AObject).AsString := strBuffer;
finally
AStore.EndScopeRead();
end;
@ -6881,6 +6885,8 @@ begin
try
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
if ( AObject = nil ) then
AObject := Create();
if IsStrEmpty(strBuffer) then
(AObject as TTimeRemotable).Clear()
else