Delphi 1
Динамическое распределение памяти I
uses WinCRT; procedure TForm1.Button1Click(Sender: TObject); var MyArray: array[0..30] of char;
b: ^char;
i: integer;
beginStrCopy(MyArray, 'Спасибо Ллойду за помощь!!!');
b := @MyArray;
for i := StrLen(MyArray) downto 0 do
begin
write(b^);
inc(b, sizeof(char));
end;
end;
|
[000361]