Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 4 Гостей: 4 Пользователей: 0
|
|
Каталог статей
Динамическое распределение памяти 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;
|
|
Просмотров: 352
| Рейтинг: 1.0/
5
Оштрафовать
| Жаловаться на материал |
|
|