paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 05:32:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use AssignFieldAsStream for stream properties

Browse Source 
git-svn-id: trunk@11495 -
This commit is contained in:
michael 2008-07-31 11:37:14 +00:00
parent 18b7043c1b
commit d6c475c944
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/codegen/fpcgtiopf.pp
View File

@ -546,7 +546,7 @@ begin
ptSet :
S:=Format('// Add custom set loading code here for %s from %s',[PN,FN]);
ptStream :
R:=Format('FieldByName(%s).SaveToStream(O.%s);',[SFN,PN]);
R:=Format('AssignFieldAsStream(%s,O.%s);',[SFN,PN]);
ptTStrings :
R:=Format('O.%s.Text:=FieldAsString[%s];',[PN,SFN]);
ptCustom :