что за ошибка в работе со строками
AngeL B. © (2002-06-25 18:05:00)
Есть такой код
{$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:00) [1]
Что ты творишь, сначала присваиваешь указатель переменной Р, а
затем портишь ешл, в конце используешь испорченный указатель еще
раз, тебе еще повезло, что ты так просто отделался.
Наверх 
ЧАТ |
Орешник |
|
