|
Динамическое распределение памяти 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 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|