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 и т. Д. Вам нужно будет сделать версии, которым передаются длины буфера назначения, чтобы гарантировать, что вы не переполняете упомянутые буферы.

Конечно, использование встроенного строкового типа будет неудобно. Возможно, вам придется придумать нечто более мощное, чем специальные массивы символов.