如何分割只有十个字符的字符串，例如“12345*45688”到一个数组中

Question

我正在制作一个简单的计算器，您可以在编辑框中输入值。我需要将字符串分成多个数组，具体取决于总和中有多少个 *+-/ 例如

我有 22+22*22-22/22 我想将其分成五个不同的数组，因为有五个不同的数字组。然后我将把数组 1 添加到数组 2 中，乘以数组 3，减去数组 4，再除以数组 5。

Answer 1

如果你想阅读类似的内容，特别是如果你想计算数学表达式，你需要的不仅仅是一个数组分割器；你需要一个真正的解析器。正确地做到这一点需要一些编译器理论。我建议您看一下让我们构建一个编译器，该教程涵盖了您将学到的所有内容需要了解表达式解析（以及更多一点，因为他实际上正在构建一个简单的编译器）并使其易于理解。所有示例均采用 Turbo Pascal 编写，因此 Delphi 编码人员应该很容易阅读。

Answer 2

Delphi XE 有一个 SplitString 函数，它完全可以满足您的需要。

Answer 3

如果您希望获得该方程的结果，您应该尝试使用名为 CalcExpress 的非可视组件。它是免费的，您可以从这里获取：
CalcExpress

下载链接位于页面文本末尾

Answer 4

这是一个可以帮助您的功能。

它根据提供的一组预定义字符集将输入字符串分解为子字符串数组。

它将给你一个字符串数组，它将是[“22”，“+”，“22”，“*”，“22”，“-”，“22”，“/”，“22”]。

从那里开始，您必须识别数字和运算符，并且必须根据运算符优先级规则对计算进行分组和执行。

TCharSet = Set of Char;
TStringArray = Array of String;

function GetSubStrings(InputString: String; CharacterSets: Array of TCharSet): TStringArray;
// Get Sub-strings
var
  Index: Integer;
  Character: Char;
  SubString: String;
  SubStringArray: TStringArray;
  CharacterSetIndex: Integer;
  PreviousCharacterSetIndex: Integer;
begin
  // Get
  SubString := '';
  SetLength(SubStringArray, 0);
  PreviousCharacterSetIndex := -1;
  for Index := 1 to Length(InputString) do
  begin
    // Character
    Character := InputString[Index];

    // Character Set Index
    CharacterSetIndex := GetCharacterSet(Character, CharacterSets);

    // Add
    if (CharacterSetIndex = PreviousCharacterSetIndex) or (Index = 1) then
      // Add Character to SubString
      SubString := SubString + Character
    else
    begin
      // Add SubString To SubString Array
      SetLength(SubStringArray, Length(SubStringArray) + 1);
      SubStringArray[Length(SubStringArray) - 1] := SubString;

      // New SubString
      SubString := Character;
    end;

    // Previous Character Set Index
    PreviousCharacterSetIndex := CharacterSetIndex;

    // Add last SubString
    if Index = Length(InputString)  then
    begin
      // Add SubString To SubString Array
      SetLength(SubStringArray, Length(SubStringArray) + 1);
      SubStringArray[Length(SubStringArray) - 1] := SubString;
    end;
  end;

  // Result
  Result := SubStringArray;
end; 

function GetCharacterSet(Character: Char; CharacterSets: Array of TCharSet): Integer;
// Get Character Set
var
  Index: Integer;
  CharacterSet: TCharSet;
begin
  // Get
  Result := -1;
  for Index := 0 to Length(CharacterSets) - 1 do
  begin
    // Character Set
    CharacterSet := CharacterSets[Index];

    // Check
    if Character in CharacterSet then
    begin
      // Result
      Result := Index;

      // Break
      Break;
    end;
  end;
end;