德爾福修改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等，你會希望要傳遞的目標緩衝區的長度，以確保不超支的版本說的緩衝區。

當然，不使用內置的字符串類型將是不方便的。你可能需要想出比特設字符數組更強大的東西。