Delphi如何“字符串”？文字超过 255 个字符？

Question

我正在使用 Delphi 7 和 Strings，我遇到了这个：

对于默认长度的字符串，即简单地声明为字符串，最大大小始终为 255。 ShortString 永远不允许增长到超过 255 个字符。

有一次我必须在我的 Delphi 代码中执行类似的操作（这是一个非常大的查询）：

var
  sMyStringOF256characters : String;
  ilength : Integer;
begin
  sMyStringOF256characters := 'ThisStringisofLength256,ThisStringisofLength256,.....'
  // length of sMyStringOF256characters is 256
end;

...我收到此错误：

[错误] u_home.pas(38)：字符串文字最多可以有 255 个元素。

但是当我尝试这个时：

var
  iCounter              : Integer;
  myExtremlyLongString  : String;
begin
  myExtremlyLongString := '';
  for iCounter := 0 to 2500 do
  begin
    myExtremlyLongString := myExtremlyLongString + IntToStr(iCounter);
  end;
  Label1.Caption := myExtremlyLongString;
  Label2.Caption := IntToStr(Length(myExtremlyLongString));
end; 

...结果是：

正如你可以看到的长度myExtremlyLongString 是 8894 个字符。为什么 Delphi 没有给出任何错误，指出 myExtremlyLongString 的长度超过 255？我也用过这个，但是不起作用：

SetLength(sMyStringOF256characters, 300);

Answer 1

为什么delphi没有给出任何错误说长度超过255
myExtremlyLongString？

您可以在长字符串 (AnsiString) 部分的文本中找到答案。

在当前版本的 Delphi 中，字符串类型只是
Ansi字符串，

因此字符串不限于 255 个字符，但字符串文字可以。这意味着您可以构建长度超过 255 个字符的字符串，但代码中的字符串值不能超过 255 个字符。如果你想要的话，你需要将它们分开。

sMyString:='ThisStringisofLength255'+'ThisStringisofLength255';

Answer 2

将其分为：

sMyStringOF256characters := 
  'ThisStringis' +
  'ofLength256' +
  'And ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'ManyManyManyManyManyManyManyManyManyManyManyManyMany' + 
  'CharactersCharactersCharactersCharactersCharactersCharactersCharactersCharacters';

Answer 3

回到旧的 DOS/Turbo Pascal 时代，“字符串”确实被限制为 255 个字符。很大程度上是因为第一个字节包含字符串长度，而一个字节只能有 0 到 255 之间的值。

在当代版本的 Delphi 中，这不再是问题。

“ShortString”是旧 DOS/Pascal 字符串类型的类型。

“LongString”长期以来一直是默认的字符串类型（包括我目前用于大多数生产工作的 Borland Delphi 2006）。 LongStrings（又名“AnsiStrings”）保存 8 位字符，并且仅受可用内存的限制。

最近版本的 Delphi（Delphi 2009 及更高版本，包括新的 Delphi XE2）现在都默认为多字节 Unicode“WideString”字符串。 WideStrings 与 AnsiStrings 一样，实际上在最大长度上也是“无限的”。

本文更详细地解释：

http://delphi.about.com/od/初学者/l/aa071800a.htm

Answer 4

不同之处在于，在第一个代码示例中，您将字符串作为代码的一部分 - 文字字符串。这对允许的字符数有限制。

在第二个代码示例中，您动态生成它，而不是将其作为一个大的文字字符串。

Delphi 中的字符串类型（与只能达到 255 的短字符串不同）可以与您的内存一样大。

Answer 5

您可以尝试使用 StringBuilder 类：

procedure TestStringBuilder;
var
    I: Integer;
    StringBuilder: TStringBuilder;
begin
    StringBuilder := TStringBuilder.Create;
    try
        for I := 1 to 10 do
        begin
            StringBuilder.Append('a string ');
            StringBuilder.Append(66); //add an integer
            StringBuilder.Append(sLineBreak); //add new line
        end;

        OutputWriteLine('Final string builder length: ' + IntToStr(StringBuilder.Length));
    finally
        StringBuilder.Free;
    end;
end;

Answer 6

如果您在 Delphi 中需要很长的字符串，您可以从其他资源（例如 txt 文件）或带有任何扩展名的纯文本加载它。我正在使用它并且它有效。您可以使用纯文本行号创建“类似”数组表。在delphi代码中，您可以按照@arjen van der Spek和其他人所说的进行操作。

对我来说，文本文件的格式为 var -

sometext:string=
'txt...'+
'txt...'+
'txt...';

不利于将来的编辑。

优点：您可以使用任何长文本。

缺点：文本代码是开放的，任何人都可以在记事本等中打开文件来读取它。