소스 검색

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

git-svn-id: trunk@38549 -
michael 7 년 전
부모
커밋
8fdf4b2cc3
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-db/src/base/bufdataset.pas

+ 1 - 1
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;