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

Dataset is opened before copying data

Browse Source
This commit is contained in:
michael 2004-03-19 23:37:38 +00:00
parent 61a8c3d1cb
commit 74e9c43e12
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/memds/memds.pp
View File

@ -144,6 +144,8 @@ type
published
Property FileName : String Read FFileName Write FFileName;
property Filtered;
Property Active;
Property FieldDefs;
property BeforeOpen;
property AfterOpen;
property BeforeClose;
@ -892,7 +894,8 @@ begin
L2.Add(F2);
end;
Dataset.DisableControls;
Try
Try
Dataset.Open;
While not Dataset.EOF do
begin
Append;