Работа с динамическими массивами

[Stilet]

Короче...

Да. Это и имелось ввиду. Остается только узнать как нонче SetLength() действует.

[Аватар]

Короче...

Можно только один раз SetLength использовать

Остается только узнать как нонче SetLength() действует.

SetLength reallocates the array как бы намекает, что память по-новой распреляется
http://docwiki.embarcadero.com/Libra...stem.SetLength

[min@y™]

Можно только один раз SetLength использовать

Согласен!

type
  TVector = array of Integer;
  
// удаление чётных из динмассива
function DeleteEven(const Source: TVector): TVector;
var
  Len, Index, Count: Integer;
begin
  Len:= Length(Source);
  Count:= 0;
  
  for Index:= 0 to Len - 1 do
    Inc(Count, Source[Index] and 1);

  SetLength(Result, Count);
  Count:= 0;
  
  for Index:= 0 to Len - 1 do
    if Odd(Source[Index])
      then begin
             Result[Count]:= Source[Index];
             Inc(Count);
           end;
end;