Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ AnsiString
Автор: compiler 18.07.2007 23:56
есть программки
шаблон
var
point: pointer;
PointInt: ^Longint;
i : Longint;
const
s: Ansistring = 'Ansistring';
begin
{программа}
end.
программа1
writeln(length(s));
получаем exit code =216 (General Protection fault)
Цитата
The application tried to access invalid memory space. This can be caused by several problems:
1. Deferencing a nil pointer //не может быть, строка не пуста
2. Trying to access memory which is out of bounds (for example, calling move with an invalid length).
1. Deferencing a nil pointer //не может быть, строка не пуста
2. Trying to access memory which is out of bounds (for example, calling move with an invalid length).
значет мы вышли за границы.. Чего?
читая
Цитата
If the string is empty (’’), then the internal pointer representation of the string pointer is Nil. If the string is not empty, then the pointer points to a structure in heap memory.
зайдем с другой стороныпрограмма2
point:=s[0];
PointInt:=point;
i:=PointInt^;
writeln(i);
но опять получаем ошибку(правда теперь еще при компиляции)
Цитата
Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
но теперь вообще ничего не понимаем 
Добавлено через 9 мин.
есть идея...
может надо от того что находится на point отнимать point^?
бредовая идея...
Добавлено через 3 мин.
тобиш както так
i:=PointInt^-@(s[0]);
Автор: volvo 19.07.2007 0:09
Ты будешь смеяться, но первая программа у меня отрабатывает как положено (печатает 10), и ни о каких ошибках не заикается...
А насчет второй - я всегда говорил - не пользуйтесь нестандартными средствами (в частности, это касается использования s[0] вместо Length(s)), вот тебе результат - нельзя теперь обращаться к нулевому символу строки.
Автор: compiler 19.07.2007 0:15
Цитата(volvo @ 18.07.2007 20:09) 
Ты будешь смеяться, но первая программа у меня отрабатывает как положено (печатает 10), и ни о каких ошибках не заикается...
скорее плакать... с {$mode Delphi} у меня тоже все работает, но у меня ж не {$mode Delphi}...
Цитата(volvo @ 18.07.2007 20:09)
А насчет второй - я всегда говорил - не пользуйтесь нестандартными средствами (в частности, это касается использования s[0] вместо Length(s)), вот тебе результат - нельзя теперь обращаться к нулевому символу строки.
дык, стандартные не работают, кстате еще одна бредвая идея i:=(@Point-@(s[0]))/SizeOf(char);Автор: volvo 19.07.2007 0:20
Я не говорил, что в {$mode delphi}
Я теперь при запуске твоих программ всегда добавляю {$mode ObjFPC}
Цитата
кстате еще одна бредвая идея
Да ты как хочешь пытайся, тебе компилятор не даст обратиться к нулевому символу строки.
Автор: compiler 19.07.2007 0:26
Цитата(volvo @ 18.07.2007 20:20)
Я теперь при запуске твоих программ всегда добавляю {$mode ObjFPC}
хм.. так тоже компилируется, но если в компиляторе поставить галочку на диалекте...Цитата(volvo @ 18.07.2007 20:20)
Да ты как хочешь пытайся, тебе компилятор не даст обратиться к нулевому символу строки.
очень даже обидно... никакой фантазии 
Автор: compiler 20.07.2007 23:24
собственно проблема решена Bоkul-ом
Цитата
В документации написано что сначала надо установить ее длину функцией SetLength..
Код:
Код:
const
s: Ansistring = 'Ansistring';
begin
SetLength(s,length('Ansistring'));
writeln(length(s));
readln;
end.
Автор: volvo 20.07.2007 23:58
Цитата
В документации написано что сначала надо установить ее длину функцией SetLength..
Ссылку на точное место в документации можно? Я не нашел этого... Все, что написано - это:
Цитата
To set the length of an ansistring, the SetLength function must be used.
, а это, простите, имеет совсем другой смысл... То есть, если надо установить длину AnsiString, то необходимо использовать SetLength (а не любимым всеми способом с s[0], например), но нигде не сказано, что я обязан перед использованием AnsiString-а пользоваться SetLength