delphi - delphi中的等效enumerable.max函数

德尔福有什么等效的
csharp代码alphabet.max其中字母是
字符串变量还是等效函数？

我正在尝试从csharp移植以下代码
去德尔福。

string alphabet = "ABCD";
invalphabet = new int[alphabet.Max() + 1];

https://msdn.microsoft.com/en-us/library/bb347632(v=vs.90).aspx

谢谢

最佳答案

您可能正在寻找这样的东西：

uses
  Math; // for the Max function
....
var
  i: Integer;
  invalphabet: array of Integer;
  maxOrdinal: Integer;
....
maxOrdinal := -1;
for i := 1 to Length(alphabet) do
  maxOrdinal := Max(maxOrdinal, ord(alphabet[i]));
if maxOrdinal = -1 then
  // handle error condition
SetLength(invalphabet, maxOrdinal + 1);

积极应对可能的编码不匹配。 C＃代码使用UTF-16，而Delphi代码则使用UTF-16或ANSI，具体取决于您的Delphi版本。当然，您可以提供限制为ASCII的alphabet。

关于delphi - delphi中的等效enumerable.max函数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/29751348/