Динамическое распределение памяти 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; |
[000361]
