Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Pascal

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

    uses WinCRT;

procedure TForm1.Button1Click(Sender: TObject);
var
MyArray: array[0..30] of char;
b: ^char;
i: integer;
begin
StrCopy(MyArray, 'Спасибо Ллойду за помощь!!!');
b := @MyArray;
for i := StrLen(MyArray) downto 0 do
begin
write(b^);
inc(b, sizeof(char));
end;
end
Категория: Pascal | Добавил: DelphiAiX (09.05.2012)
Просмотров: 415 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]