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

sqliteds: * Use Value instead of AsString in SetMasterIndexValue

Browse Source 
git-svn-id: trunk@15135 -
This commit is contained in:
blikblum 2010-04-11 01:18:04 +00:00
parent 7bad77aff8
commit 2ded0b93df
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/sqlite/customsqliteds.pas
View File

@ -613,7 +613,7 @@ var
i: Integer;
begin
for i := 0 to FIndexFieldList.Count - 1 do
TField(FIndexFieldList[i]).AsString := TField(FMasterLink.Fields[i]).AsString;
TField(FIndexFieldList[i]).Value := TField(FMasterLink.Fields[i]).Value;
end;
procedure TCustomSqliteDataset.SetOptions(const AValue: TSqliteOptions);