refactor: rename TSynEditHelper.TextIsEmpty to HasText

ansgarbecker · ansgarbecker · commit ac095e46cdfe · 2026-01-19T11:19:21.000+01:00
diff --git a/source/copytable.pas b/source/copytable.pas
@@ -172,7 +172,7 @@ procedure TCopyTableForm.FormClose(Sender: TObject; var Action: TCloseAction);
     Node := TreeElements.GetNextSibling(Node);
   end;
   // Store recent filters
-  if MemoFilter.Enabled and (not MemoFilter.TextIsEmpty) then begin
+  if MemoFilter.Enabled and MemoFilter.HasText then begin
     NewValues := TStringList.Create;
     NewValues.Add(MemoFilter.Text);
     for i:=1 to 20 do begin
@@ -479,7 +479,7 @@ procedure TCopyTableForm.btnOKClick(Sender: TObject);
     DataCols := Trim(DataCols);
     Delete(DataCols, Length(DataCols), 1);
     InsertCode := 'INSERT INTO '+TargetTable+' ('+DataCols+') SELECT ' + DataCols + ' FROM ' + FDBObj.QuotedName;
-    if not MemoFilter.TextIsEmpty then
+    if MemoFilter.HasText then
       InsertCode := InsertCode + ' WHERE ' + MemoFilter.Text;
   end;
 
diff --git a/source/lazaruscompat.pas b/source/lazaruscompat.pas
@@ -18,7 +18,7 @@ interface
   TSynEditHelper = class helper for TSynEdit
     public
       function GetTextLen: Integer;
-      function TextIsEmpty: Boolean;
+      function HasText: Boolean;
       function ConvertCodeStringToCommand(AString: string): TSynEditorCommand;
       function IndexToEditorCommand(const AIndex: Integer): Integer;
   end;
@@ -166,10 +166,10 @@ function TSynEditHelper.GetTextLen: Integer;
   Result := Length(Text);
 end;
 
-function TSynEditHelper.TextIsEmpty: Boolean;
+function TSynEditHelper.HasText: Boolean;
 begin
   // Introduced because GetTextLen seems to be unreliable, probably due to the lack of Trim()
-  Result := Trim(Text).IsEmpty;
+  Result := not Trim(Text).IsEmpty;
 end;
 
 function TSynEditHelper.ConvertCodeStringToCommand(AString: string): TSynEditorCommand;
