Fix compiler warnings, and add documentation

HeidiSQL · Jun 12, 2019 · 51e5543 · 51e5543
1 parent fb2e3ef
commit 51e5543
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -1621,9 +1621,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
   OldSnippetsDir, CurrentSnippetsDir, TargetSnippet: String;
   Files: TStringDynArray;
   dti: TDBDatatypeCategoryIndex;
-  mii: TMenuItemInfo;
-  MainMenu: hMenu;
-  Buffer: array[0..79] of Char;
 begin
   caption := APPNAME;
 

diff --git a/source/texteditor.pas b/source/texteditor.pas
@@ -99,7 +99,9 @@ procedure TfrmTextEditor.SetText(text: String);
 var
   Detected, Item: TMenuItem;
 begin
+  // Apply text string, and detect type of line breaks in it
   FDetectedLineBreaks := ScanLineBreaks(text);
+  Detected := nil;
   if FDetectedLineBreaks = lbsNone then
     FDetectedLineBreaks := TLineBreaks(AppSettings.ReadInt(asLineBreakStyle));
   for Item in popupLinebreaks.Items do begin