* Fix bug ID #33448 (AV getting index name)

git-svn-id: trunk@38549 -
2025-04-22 08:29:29 +02:00 · 2018-03-17 15:08:38 +00:00 · 2018-03-17 15:08:38 +00:00 · 8fdf4b2cc3
commit 8fdf4b2cc3
parent f61c37ecc9
1 changed files with 1 additions and 1 deletions
--- a/packages/fcl-db/src/base/bufdataset.pas
+++ b/packages/fcl-db/src/base/bufdataset.pas
@ -3028,7 +3028,7 @@ end;

 function TCustomBufDataset.GetIndexName: String;
 begin
-  if FIndexes.Count>0 then
+  if (FIndexes.Count>0) and (CurrentIndexBuf <> nil) then
    result := CurrentIndexBuf.Name
  else
    result := FIndexName;