Динамическое распределение памяти

Delphi , Синтаксис , Память и Указатели

uses WinCRT;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArray: array[0..30] of char;
  b: ^char;
  i: integer;
begin
  StrCopy(MyArray, 'Delphi World - это круто!!!');
  b := @MyArray;
  for i := StrLen(MyArray) downto 0 do
  begin
    write(b^);
    inc(b, sizeof(char));
  end;
end;

Here's the translation of the text into Russian:

Классический код Delphi! Код - простое демонстрирование динамической памяти в Delphi. Программа создает массив MyArray с 31 элементом (от 0 до 30) и инициализирует его строкой 'Delphi World - это круто!!!'.

Затем, она создает указатель b на первый элемент массива используя оператор @. Этот указатель используется для перебора элементов массива.

Цикл iterates от конца строки (от 30 до 0) и печатает каждый символ используя операцию write. Оператор inc используется для перемещения указателя b на следующий элемент в массиве.

Вот разбивка кода:

• uses WinCRT;: эта строка включает модуль WinCRT, который обеспечивает поддержку функций Windows API.
• procedure TForm1.Button1Click(Sender: TObject);: это обработчик события для клика кнопки. Процедура вызывается при клике кнопки.
• var MyArray: array[0..30] of char;: объявляет динамический массив MyArray с 31 элементом, все инициализированные в нулях (char тип).
• StrCopy(MyArray, 'Delphi World - это круто!!!');: копирует строку 'Delphi World - это круто!!!' в массив MyArray.
• b := @MyArray;: создает указатель b на первый элемент массива используя оператор @.
• for i := StrLen(MyArray) downto 0 do ...: цикл iterates от конца строки (30) до начала (0).
• write(b^);: печатает символ, указанный на b.
• inc(b, sizeof(char));: увеличивает указатель b на размер одиночной символа (sizeof(char)).

Вывод будет строкой 'Delphi World - это круто!!!', напечатанной в обратном порядке.

Обратите внимание, что этот код использует старый стиль синтаксиса Delphi (прежде-2009 года). В новых версиях вы бы использовали TArray вместо динамических массивов и String вместо char. Код можно переписать с помощью более современного синтаксиса следующим образом:

uses System.SysUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MyString: string;
begin
  MyString := 'Delphi World - это круто!!!';
  for i := Length(MyString) downto 0 do
  begin
    Write(MyString[i]);
  end;
end;

В этом варианте мы используем переменную string MyString вместо массива, и перебираем символы с помощью функции Length. Вывод будет тем же, что в оригинальном коде.

Данная статья рассказывает о динамическом распределении памяти в программировании на языке Delphi, используя пример с массивом символов и указателем.

Комментарии и вопросы

:: Главная :: Память и Указатели ::