opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix EAccessViolation when freeing TQueryHistory instance, due to unassigned comparer. (wtf?)

Browse Source
This commit is contained in:
Ansgar Becker
2013-10-24 03:40:03 +00:00
parent f8c4e53675
commit 736091a10f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.pas
View File

@ -11733,6 +11733,7 @@ var
Raw: String;
Item: TQueryHistoryItem;
begin
inherited Create(TQueryHistoryItemComparer.Create, True);
AppSettings.SessionPath := SessionPath + '\' + REGKEY_QUERYHISTORY;
ValueNames := AppSettings.GetValueNames;
for i:=0 to ValueNames.Count-1 do begin
@ -11764,7 +11765,7 @@ begin
end;
end;
// Sort by date
Sort(TQueryHistoryItemComparer.Create);
Sort;
ValueNames.Free;
AppSettings.ResetPath;
end;