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

Simplify Save/Load as simple types for TBaseDateRemotable, TDurationRemotable and TTimeRemotable.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4386 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-11-11 08:55:48 +00:00
parent 50422d2d69
commit 0dd86c13fc
1 changed files with 21 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
wst/trunk/base_service_intf.pas
View File

@ -6009,12 +6009,7 @@ var
buffer : string; buffer : string;
begin begin
buffer := TBaseDateRemotable(AObject).AsString; buffer := TBaseDateRemotable(AObject).AsString;
AStore.BeginObject(AName,ATypeInfo); AStore.Put(AName,TypeInfo(string),buffer);
try
AStore.PutScopeInnerValue(TypeInfo(string),buffer);
finally
AStore.EndScope();
end;
end; end;
class procedure TBaseDateRemotable.Load( class procedure TBaseDateRemotable.Load(
@ -6024,19 +6019,13 @@ class procedure TBaseDateRemotable.Load(
const ATypeInfo : PTypeInfo const ATypeInfo : PTypeInfo
); );
var var
strBuffer : string; buffer : string;
begin begin
if ( AStore.BeginObjectRead(AName,ATypeInfo) >= 0 ) then begin buffer := '';
try AStore.Get(TypeInfo(string),AName,buffer);
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
if ( AObject = nil ) then if ( AObject = nil ) then
AObject := Create(); AObject := Create();
(AObject as TBaseDateRemotable).AsString := strBuffer TBaseDateRemotable(AObject).AsString := buffer;
finally
AStore.EndScopeRead();
end;
end;
end; end;
procedure TBaseDateRemotable.Assign(Source: TPersistent); procedure TBaseDateRemotable.Assign(Source: TPersistent);
@ -6841,12 +6830,7 @@ var
buffer : string; buffer : string;
begin begin
buffer := TDurationRemotable(AObject).AsString; buffer := TDurationRemotable(AObject).AsString;
AStore.BeginObject(AName,ATypeInfo); AStore.Put(AName,TypeInfo(string),buffer);
try
AStore.PutScopeInnerValue(TypeInfo(string),buffer);
finally
AStore.EndScope();
end;
end; end;
class procedure TDurationRemotable.Load( class procedure TDurationRemotable.Load(
@ -6856,19 +6840,13 @@ class procedure TDurationRemotable.Load(
const ATypeInfo : PTypeInfo const ATypeInfo : PTypeInfo
); );
var var
strBuffer : string; buffer : string;
begin begin
if ( AStore.BeginObjectRead(AName,ATypeInfo) >= 0 ) then begin buffer := '';
try AStore.Get(TypeInfo(string),AName,buffer);
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
if ( AObject = nil ) then if ( AObject = nil ) then
AObject := Create(); AObject := Create();
TDurationRemotable(AObject).AsString := strBuffer; TDurationRemotable(AObject).AsString := buffer;
finally
AStore.EndScopeRead();
end;
end;
end; end;
procedure TDurationRemotable.Assign(Source : TPersistent); procedure TDurationRemotable.Assign(Source : TPersistent);
@ -7253,12 +7231,7 @@ var
buffer : string; buffer : string;
begin begin
buffer := TTimeRemotable(AObject).AsString; buffer := TTimeRemotable(AObject).AsString;
AStore.BeginObject(AName,ATypeInfo); AStore.Put(AName,TypeInfo(string),buffer);
try
AStore.PutScopeInnerValue(TypeInfo(string),buffer);
finally
AStore.EndScope();
end;
end; end;
class procedure TTimeRemotable.Load( class procedure TTimeRemotable.Load(
@ -7268,22 +7241,13 @@ class procedure TTimeRemotable.Load(
const ATypeInfo : PTypeInfo const ATypeInfo : PTypeInfo
); );
var var
strBuffer : string; buffer : string;
begin begin
if ( AStore.BeginObjectRead(AName,ATypeInfo) >= 0 ) then begin buffer := '';
try AStore.Get(TypeInfo(string),AName,buffer);
strBuffer := '';
AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
if ( AObject = nil ) then if ( AObject = nil ) then
AObject := Create(); AObject := Create();
if IsStrEmpty(strBuffer) then TTimeRemotable(AObject).AsString := buffer;
(AObject as TTimeRemotable).Clear()
else
(AObject as TTimeRemotable).AsString := strBuffer;
finally
AStore.EndScopeRead();
end;
end;
end; end;
procedure TTimeRemotable.Assign(Source: TPersistent); procedure TTimeRemotable.Assign(Source: TPersistent);