특정변수를 포인터로 잡아넣고 함수에 전달하여 원하는 만큼 메모리를 할당한 후 0으로 채우기 위해서 아래와 같이 구현해 봤어요. 그런데 잘 안되네요..

뭐가 잘못되었는지 가르켜주시면 고맙겠습니다.



초보예요. 메모리 관련부분을 좀 알려주세요

type UINT4 = Cardinal;

type pUINT4 = ^UINT4;

//////////////////////////

procedure AssignOh(var C : pUINT4; digits: integer);

begin

getmem(c, digits);

fillchar(C^, sizeof(c), 0); //변수를 0으로 채우기 위해서

end;

//함수는 위와 같이 잡았어요.////////////////////



procedure TForm1.Button1Click(Sender: TObject);

var

digits, m, n : integer;

c : pUINT4;

begin

AssignOh(c, 5); //위함수 첫번째 파라메터는 인티지형 포인터구요, 두번째 파라메터

는 5섯자리를 메모리에 할당하기 위해서에요.

memo1.Lines.Add(inttostr(c^)); //아래 코드는 테스트 해보기 위해서

inc(c,1); //이렇게 하면 주소가 하나 증가되지 않나요?

memo1.Lines.Add(inttostr(c^));

end;