Советы по Delphi


              

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



Содержание  Назад  Вперед