delphi编程提取memo组件中字符串的所有数字

在Delphi编程中，如果你想从Memo组件中的字符串中提取所有的数字，你可以使用正则表达式（Regular Expressions）。Delphi提供了一个名为`FMTSCANF`的函数或者你可以使用第三方库如`RegEx`来完成这个任务。这里是一个简单的示例：

uses
  System.SysUtils, System.RegularExpressions;

function ExtractNumbersFromMemo(MemoText: string): TStringDynArray;
var
  Numbers: TArray<string>;
  RE: TRegEx;
begin
  // 创建正则表达式对象，匹配所有数字
  RE := TRegEx.Create('[-+]?[0-9]+(\.[0-9]+)?');

  // 使用正则表达式查找所有匹配项
  Numbers := RE.Execute(MemoText);

  // 将结果转换为动态数组并返回
  result := Numbers.Items;
end;

// 示例用法
var
  MemoContent: string;
  NumberList: TStringDynArray;
begin
  MemoContent := Memo1.Text; // 假设Memo1是你想要提取的Memo组件
  NumberList := ExtractNumbersFromMemo(MemoContent);
  
  for I := 0 to High(NumberList) do
    Writeln('提取到的数字：', NumberList[I]);