如何将短字符串数组传递给方法

Question

我想制作一个以短字符串数组作为参数的过程，

procedure f(const a, b: Array of shortstring);

我想用已知长度的数组和已知长度的短字符串来调用它，例如

var
  A, B: array[1..2] of string[5];
  C, D: array[1..40] of string[12];
begin
  f(A,B);
  f(C,D);
end;

这会导致编译器错误 E2008 不兼容类型。 这是为什么？我可以编写一个可以接受短字符串数组（任意长度的数组/字符串）的过程吗？

为什么使用短字符串？

短字符串是现有记录中的字段。有很多这样的唱片有数千个短弦。为了将数据从涡轮增压 B-Tree Filer 迁移到 SQL 数据库，第一步是将记录转换为数据集，然后再转换回记录，以确认所有字段都在两个方向上正确转换。我一直在记录上使用 CompareMem 来检查这一点，但它没有提供足够的信息来说明转换错误位于哪个字段。因此创建了一个小程序，可以从记录定义生成比较两条记录的代码。对于这个代码生成器，我需要一个函数来比较短字符串。它最终在短字符串上使用了CompareMem。

Answer 1

ShortString 的长度为 0 到 255 个字符。 ShortString 的长度可以动态改变，但内存是静态分配的 256 个字节，第一个字节存储字符串的长度，其余 255 个字节可用于字符，而以这种方式声明的 string[5] 只能分配为类型需要多少内存（5 字节 + 1 字节长度）。
你可以使用类型

type
    MyString = string[5];
...
procedure f(const a, b: Array of MyString);
...

var
    A, B: array[1..2] of MyString;
begin
    f(A,B);
end;

Answer 2

在类似的情况下，我使用了以下内容：

type
  TOpenArrayOfOpenString = record
  strict private
    FSizeOfString: Integer;
    FpStart: PChar;
    FArrayLength: Integer;
    function GetItemPtr(AIndex: Integer): PShortString;
  public
    constructor Init(var AFirstString: Openstring; AArrayLength: Integer);
    function Equals(const AArray: TOpenArrayOfOpenString): Boolean;

    property SizeOfString: Integer read FSizeOfString;
    property pStart: PChar read FpStart;
    property ArrayLength: Integer read FArrayLength;
    property ItemPtrs[AIndex: Integer]: PShortString read GetItemPtr; default;
  end;

{ TOpenArrayOfOpenString }

constructor TOpenArrayOfOpenString.Init(var AFirstString: Openstring; AArrayLength: Integer);
begin
  FSizeOfString := SizeOf(AFirstString);
  FpStart := @AFirstString[0]; // incl. length byte!
  FArrayLength := AArrayLength;
end;

function TOpenArrayOfOpenString.Equals(const AArray: TOpenArrayOfOpenString): Boolean;
begin
  Result := CompareMem(pStart, AArray.pStart, SizeOfString * ArrayLength);
end;

function TOpenArrayOfOpenString.GetItemPtr(AIndex: Integer): PShortString;
begin
  Result := PShortString(pStart + AIndex * SizeOfString);
end;

您可以这样使用它：

procedure f(const a: TOpenArrayOfOpenString);
var
  i: Integer;
begin
  for i := 0 to Pred(a.ArrayLength) do
    Writeln(a[i]^);
end;

procedure Test;
var
  A: array[1..2] of string[5];
  C: array[1..40] of string[12];
begin
  f(TOpenArrayOfOpenString.Init(A[1], Length(A)));
  f(TOpenArrayOfOpenString.Init(C[1], Length(C)));
end;

它不像语言中内置的解决方案那么优雅，而且它有点hacky，因为它依赖于事实/希望/...数组中的字符串是连续排列的。但它对我有用了一段时间。

Answer 3

   type
      shortStrings =array[1..2] of string[5];  
    ...
    a,b : shortString;
    ..
    procedure rock(a,b : shortStrings);
    ..

Answer 4

您正在组合两种不同类型的开放数组。

首先，有经典的 Turbo Pascal“字符串”（在 Delphi IIRC 中也称为“openstring”），它本质上是 string[255]。由于 string[255] 是所有短字符串的超集，因此开放数组方面只是将所有短字符串类型转换为它。

“array of xx”语法是 Delphi (4+?) 开放数组。它是任何类型的开放数组，而不仅仅是字符串，调用它的语法是 f(nonarrayparam,[arrayelement0,arrayelement1]);

不知怎的，你似乎混合了两种语法，甚至通过添加 CONST 来聚合它，它要求通过引用传递并排除转换。

我认为您认为短弦具有性能优势。在某些情况下确实如此。开放阵列不是其中之一。即使在 TP 中也没有:-)