delphi提取memo字符串中的所有数字

在Delphi中，你可以使用正则表达式库（`System.RegularExpressions`）来从Memo组件的文本中提取所有的数字。以下是一个简单的示例：

uses
  System.RegularExpressions;

function ExtractNumbers(const MemoText: string): TStringDynArray;
var
  regex: TRegEx;
  matches: TArray<string>;
begin
  regex := TRegEx.Create('[-+]?\d+\.?\d*'); // 正则表达式匹配整数和小数
  matches := regex.Execute(MemoText); // 执行搜索

  Result := SetLength(TStringDynArray.Create, Matches.Count);
  for I := 0 to High(matches) do
  begin
    Result[I] := matches[I].Value; // 将每个匹配的数字添加到数组中
  end;
end;

这个函数会返回一个字符串动态数组，包含了Memo中所有的数字。