On Mon, 3 Dec 2012, Jonas Maebe wrote:
On 03 Dec 2012, at 11:13, Michael Van Canneyt wrote:
On Mon, 3 Dec 2012, ik wrote:
var
s : AnsiString;
l : word;
begin
SetLength(s, 1024);
FillChar(s, 1024, '*');
You are overwriting the pointer. S is (behind the scenes) a pointer to a
memory area. You should do FillChar(s[1], 1024, '*');
Or use http://www.freepascal.org/docs-html/rtl/system/stringofchar.html
I was considering answering with that too, but I didn't feel like
checking how it is implemented, to judge the speed penalty :)
Michael.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
