如何将空终止的字符串转换为字符串？

Question

我想将一些数据记录存储到磁盘。我想让每条数据记录的大小相等，这样我就可以快速计算并跳转到某个记录。 因此，我将记录中唯一的字符串存储为一个字符数组：

type TFileNameIO = array[1..512] of Char;

从磁盘读取字符串后，我的字符串内容是这样的：

c:\windows#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 等

我想截断 #0 字符，我做了这样的事情：

function GetFileName(DiskName: TFileNameIO): string;
VAR PC: PChar;
begin
 SetString(Result, PChar(@DiskName), Length(DiskName));     <----- here Result is: c:\windows#0#0#0 etc
 PC:= PChar(Result);
 Result:= WideCharToString(PC);
end;

有更好的方法吗？

Answer 1

您可以将空终止的PChar 直接分配给String：

function GetFileName(DiskName: TFileNameIO): string;
begin
 Result := PChar(@DiskName);
end;

只需确保TDiskName 始终包含一个空终止符。如果它可以完全包含没有 null 的字符，您将不得不这样做：

function GetFileName(DiskName: TFileNameIO): string;
var
 Len, I: Integer;
begin
  Len := 0;
  For I := Low(DiskName) to High(DiskName) do
  begin
    if DiskName[I] = #0 then Break;
    Inc(Len);
  end;
  SetString(Result, PChar(@DiskName), Len);
end;

Answer 2

您的函数不是必需的，因为您可以简单地将字符数组分配给字符串变量。

type
  TCharArray = array [1..512] of Char;
....
var
  arr: TCharArray;
  str: string;
....
arr := ...;
str := arr;

这导致str 被分配arr 的内容。编译器通过调用System._UStrFromWArray 来实现这一点，它首先寻找一个空终止符。如果找到一个，则确定str 的长度。否则，将复制数组的全部内容，并Length(str)=Length(arr)。

作为更广泛的观点，我建议您改为使用从零开始的字符数组。来自documentation：

从零开始的字符数组与 PChar 和 PWideChar 兼容。当您使用字符数组代替指针值时，编译器会将数组转换为指针常量，其值对应于数组第一个元素的地址。

这使您可以更轻松地与需要 PChar 参数的函数进行互操作。

顺便说一句，按值传递TFileNameIO 效率低下，因为它涉及内存副本。通过引用传递此类类型。例如作为const 参数。