正则表达式到行尾

Tah*_*htu 4 regex delphi

我想使用正则表达式在字符串中查找注释行。我尝试了以下操作,但它给了我第一个之后的一切//

为什么?

program Project1;

uses
  RegularExpressions;

var
  Text: string;
  Pattern: string;
  RegEx: TRegEx;
  Match: TMatch;
begin
  Text := 'Hello' + #13#10
    + '// Test' + #13#10
    + 'Text' + #13#10;

  Pattern := '//[^$]*$';

  RegEx := TRegEx.Create(Pattern, [roCompiled, roMultiLine]);
  Match := RegEx.Match(Text);
  if (Match.Success) then
  begin
    Match.Index; // 8 -> Expected
    Match.Length; // 15 -> I would like to have 9
  end;
end.
Run Code Online (Sandbox Code Playgroud)

All*_*lan 5

您不应在正则表达式中使用以下语法:[^$]*

这意味着将所有非美元字符取$0 到 N 次(包括EOL字符),这会导致您的正则表达式取整个字符串。

使用该正则表达式代替:

 Pattern := '//[^\r\n]*'
Run Code Online (Sandbox Code Playgroud)

祝你好运!