判断字符串是否不包含数字

Question

我需要一些功能方面的帮助。我需要做的是确定字符串是否包含数字。如果是，我只需要字符串中的一个数字，如果不是，我需要它的整个单词。

例如：

如果我的字符串是 'xyz 60'，我需要从中得到 '60'，但是如果字符串是 'xyz'，我需要整个字符串：

  function TForm1.FindNumberInString(InString: string): TNumberInString;
  var
    i, j: Integer;
    ST: String;
  begin
    Result.TNumber := '';
    Result.TIsNumber := False;

    for i := 1 to Length(InString) do
    begin
      if (InString[i] in ['0'..'9']) then
      begin
        Result.TNumber := Result.TNumber + InString[i];
        Result.TIsNumber := True;
      end else 
        Result.TNumber := InString;
    end;      
  end;

 // TNumberInString is a packed record

 TNumberInString = Packed Record
   TNumber: string;
   TIsNumber: boolean;
 end;

谁能帮忙看看是什么问题？结果总是 'xyz60'，而不是 '60'。我试过 "if not (InString[i] in...)，但也没有用。

Answer 1

尝试更像这样的东西：

function TForm1.FindNumberInString(InString: string): TNumberInString;
var
  i, j: Integer;
begin
  Result.TNumber := InString;
  Result.TIsNumber := False;

  for i := 1 to Length(InString) do
  begin
    if InString[i] in ['0'..'9'] then
    begin
      Result.TNumber := InString[i];
      Result.TIsNumber := True;
      For j := i+1 to Length(InString) do
      begin
        if not (InString[i] in ['0'..'9']) then
          Break;
        Result.TNumber := Result.TNumber + InString[j];
      end;
      Exit;
    end;
  end;      
end;

Answer 2

我会使用正则表达式，并使用 构造函数

扩展您的记录

uses
  RegularExpressions;
{$R *.dfm}

type
  TNumberInString = Packed Record
    TNumber: string;
    TIsNumber: Boolean;
    constructor Create(const Value: String);
  end;

  { TNumberInString }

constructor TNumberInString.Create(const Value: String);
var
  Match: TMatch;
begin
  Match := TRegEx.Create('\d+').Match(Value);
  TIsNumber := Match.Success;
  if TIsNumber then
    TNumber := Match.Value
  else
    TNumber := Value;
end;

那么剩下的就是调用它了：

procedure TForm30.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(TNumberInString.Create('XYZ').TNumber);
  Memo1.Lines.Add(TNumberInString.Create('XYZ60').TNumber);
  Memo1.Lines.Add(TNumberInString.Create('XYZ 60').TNumber);
end;

并显示结果：

判断字符串是否不包含数字

Determine if string not contain number

delphi

delphi-xe