Советы по 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 dobeginwrite(b^);inc(b, sizeof(char));end;end;

[000361]




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