err shrinked array returns old length

[laggyluk]

I'm trying to shrink dynamic array
both setlength and fillchar seem to change size to 0 when inspecting array in debugger but length() still returns old size. Do I need to keep track of array length on my own or is there a proper way to shrink it?

[Blaazen]

You don't need to free dynamic arrays. FreePascal does it itself.
But still it should work. If you set its length to 0 with SetLength(array, 0); then Length(array) should return 0.

EDIT: Can you show the code?

[User137]

If you setlength() array to 0, then length() should tell you 0 aswell. Fillchar() modifies data inside, does not and should not affect array length. Dynamic array such as string is good example for fillchar

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
  setlength(s, 10);
  fillchar(s[1], 10, '-'); // Makes s = '----------'
  caption:=s;
end;

[laggyluk]

bug in my code