Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c