paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

copydataset won't find dataset if it's the last on the list

Browse Source 
git-svn-id: trunk@7852 -
This commit is contained in:
jesus 2005-09-29 17:26:03 +00:00
parent dd485801cc
commit e8f011bf1e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/memds/frmselectdataset.pp
View File

@ -134,7 +134,7 @@ begin
DSN:=Items[ItemIndex];
DS:=Nil;
I:=0;
While (DS=Nil) and (I<F.ComponentCount-1) do
While (DS=Nil) and (I<F.ComponentCount) do
if (F.Components[i] is TDataset) and
(F.Components[i].Name=DSN) then
DS:=F.Components[i] as TDataset