что за ошибка в работе со строками

← →
AngeL B. (2002-06-25 18:05) [0]

Есть такой код
{$apptype console} var s: string; p: pchar; begin s := "12345678ooo"; p := PChar(S); s := "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"; writeln(s); s := p; writeln(s); end.

на экран выводится:
qqqqqqqqq...
12345678

если добавить еще одну "o", то все станет на свои места.
Спрашивается как правильно сделать копию строки (мне нужен указатель) чтобы выделение шло не по 4 байта, тем более с округлением в младшую сторону?

← →
Anatoly Podgoretsky © (2002-06-25 18:18) [1]

Что ты творишь, сначала присваиваешь указатель переменной Р, а затем портишь ешл, в конце используешь испорченный указатель еще раз, тебе еще повезло, что ты так просто отделался.

что за ошибка в работе со строками Найти похожие ветки