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

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 etc

我想截断 #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 始终包含空终止符即可。如果它可以完全充满字符而没有空值，则您必须这样做:

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;