配列とポインタ

明解Ｃ言語入門編 > 10. ポインタ >

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure main();

var

    i:    Integer;

    vc:   array[1..5] of Integer;

    ptr: ^Integer;

begin

    vc[1] := 10;

    vc[2] := 20;

    vc[3] := 30;

    vc[4] := 40;

    vc[5] := 50;
    ptr := @vc[1];
    for i := Low(vc) to High(vc) do

    begin

        write(Format('vc[%d] = %d    '   , [i, vc[i]]));

        Writeln(Format('*(ptr + %d) = %d', [i, ptr^]));
        Inc(ptr);

    end;
//  ptr := vc; これは、エラー

end;
begin

    main;

end.

実行結果



S:\>lesson078\Project1.exe

vc[1] = 10    *(ptr + 1) = 10

vc[2] = 20    *(ptr + 2) = 20

vc[3] = 30    *(ptr + 3) = 30

vc[4] = 40    *(ptr + 4) = 40

vc[5] = 50    *(ptr + 5) = 50