delphi在运行时修改pchar

Question

我需要在运行时修改pchar字符串。请帮我处理这段代码：

var
  s:pChar;
begin
  s:='123123';
  s[0]:=#32; // SO HERE I HAVE EXCEPTION !!!
end.

现在我在Delphi 7中有例外了！我的项目没有使用本机pascal字符串(没有任何windows.pas类和其他)

Answer 1

您可以：

procedure StrCopy(destination, source: PChar);
begin
  // Iterate source until you find #0
  // and copy all characters to destination.
  // Remember to allocate proper amount of memory
  // (length of source string and a null terminator)
  // for destination before StrCopy() call 
end;

var
  str: array[0..9] of Char;
begin
  StrCopy(str, '123123');
  s[0]:=#32;
end.

Answer 2

字符串文本是只读的，不能修改。因此出现了运行时错误。你需要使用一个变量。

var
  S: array[0..6] of Char;
....
// Populate S with your own library function
S[0] := #32;

由于您没有使用Delphi运行时库，所以您需要自己的函数来填充字符数组。例如，您可以编写自己的StrLen、StrCopy等。您将希望生成通过目标缓冲区长度的版本，以确保不会超出所述缓冲区。

当然，不使用内置字符串类型将是不方便的。您可能需要想出一些比特设字符数组更强大的东西。