mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-12 15:10:41 +02:00
* Make sure output contains something in case of empty dataset
git-svn-id: trunk@42266 -
This commit is contained in:
parent
ba1fb2c0cf
commit
01e5861255
@ -699,8 +699,13 @@ begin
|
||||
end;
|
||||
if not (D.EOF and D.BOF) then
|
||||
StreamDataset(IO.RESTOutput,D,FieldList)
|
||||
else if Single then
|
||||
DoNotFound;
|
||||
else
|
||||
begin
|
||||
if Single then
|
||||
DoNotFound
|
||||
else
|
||||
StreamDataset(IO.RESTOutput,D,FieldList)
|
||||
end;
|
||||
finally
|
||||
D.Free;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user