Quellcode durchsuchen

Check for preprocessor work case sensitively.

Martijn Laan vor 5 Jahren
Ursprung
Commit
e609ed6c7f
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

@@ -2670,7 +2670,7 @@ procedure TCompileForm.UpdatePreprocMemos;
   procedure UpdatePreprocessorOutputMemo(const NewTabs, NewHints: TStringList);
   begin
     if FOptions.ShowPreprocessorOutput and (FPreprocessorOutput <> '') and
-       not SameText(TrimRight(FMainMemo.Lines.Text), FPreprocessorOutput) then begin
+       not SameStr(TrimRight(FMainMemo.Lines.Text), FPreprocessorOutput) then begin
       NewTabs.Add('Preprocessor Output');
       NewHints.Add('');
       FPreprocessorOutputMemo.ReadOnly := False;