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

* Do not depend on TDataset.DataEvent when setting up the test-data

Browse Source 
git-svn-id: trunk@10383 -
This commit is contained in:
joost 2008-02-24 13:21:16 +00:00
parent 6c53785e3a
commit 3bb5a786eb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/dbftoolsunit.pas
View File

@ -43,6 +43,10 @@ begin
Append;
FieldByName('ID').AsInteger := countID;
FieldByName('NAME').AsString := 'TestName'+inttostr(countID);
// Explicitly call .post, since there could be a bug which disturbs
// the automatic call to post. (example: when TDataset.DataEvent doesn't
// work properly)
Post;
end;
if state = dsinsert then
Post;