Процедура SetLength – змінює розмір рядка або розмір динамічного масиву

Процедура SetLength в Delphi змінює розмір рядка або розмір динамічного масиву.

Процедура SetLength: Робимо рядок меншим чи довшим

var
  myString : string;
  onPos    : Integer;

begin
  // Привласнюємо моєму рядку відому фразу
  myString := 'The cat sat on the mat';

  // Показ цього значення
  ShowMessage('"'+myString+'"');

  // Тепер робимо рядок довшим
  SetLength(myString, 25);

  // Показ знову цього значення
  // Зверніть увагу, що рядок закінчено передчасно
  // Це тому, що додаткові символи не ініціалізовані
  ShowMessage('"'+myString+'"');

  // Тепер робимо рядок коротшим - перериваємо перед 'sat'
  onPos := AnsiPos('sat', myString);
  SetLength(myString, onPos-1);

  // Показ цього рядка знову
  // Тепер рядок повністю ініціалізований
  ShowMessage('"'+myString+'"');
end;

Процедура SetLength: Встановлення довжини одновимірних та багатовимірних масивів

var
  singleArray : array of string;
  multiArray  : array of array of Word;
  i, j : Integer;

begin
  // Встановлюємо довжину одновимірного масиву
  SetLength(singleArray, 4);

  // Тепер заповнюємо : зверніть увагу, що динамічні масиви починаються з 0
  ShowMessage('Одновимірний масив :');
  for i := 0 to 3 do
  begin
    singleArray[i] := 'String '+IntToStr(i);
    ShowMessage('Елемент '+IntToStr(i)+' = '+singleArray[i]);
  end;

  // Встановлюємо довжину багатовимірного масиву
  SetLength(multiArray, 2, 3);

  // Тепер заповнюємо його
  ShowMessage('Багатовимірний масив :');
  for i := 0 to 1 do
    for j := 0 to 2 do
    begin
      multiArray[i,j] := i + j;
      ShowMessage('Елемент '+IntToStr(i)+','+IntToStr(j)+' = '+
                  IntToStr(multiArray[i,j]));
    end;
end;