德尔福修改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等，你会希望要传递的目标缓冲区的长度，以确保不超支的版本说的缓冲区。

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