Q&A

  • 형변환에 대한 질문에세요 봐주세요.~
안녕하세요.

델파이 공부을 막시작한 초보에요

레코드을 작성해서 포인터 변수에다 데입하려고 하는데 잘않되요

넘 초보적인 질문이라 죄송 합니다.

절거운 날 되세요.~~





procedure TForm1.Button1Click(Sender: TObject);

var

a:Tss;

str:string;

pt:pointer;

b:^Tss;

begin

strcopy( a.tp , 'hi this is test.');





pt = ^a; <----- 요기서 애러가...흑









end;



end.

1  COMMENTS
  • Profile
    하얀까마귀 2001.03.30 05:17
    안녕하세요 하얀까마귀 입니다.



    Tss가 어떤형인지 잘 모르겠네요.. 아마 만드신것 같은데..



    Tss의 tp 가 Pchar형이라면..



    먼저 메모리를 잡아줘야 합니다.

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > a:Tss;

    > str:string;

    > pt:pointer;

    > b:^Tss;

    > begin

    GetMem(a.tp, length('hi this is test.') + 1 ); <-- 요거 추가.

    > strcopy( a.tp , 'hi this is test.');

    >

    >

    > pt = ^a; <----- 요기서 애러가...흑

    요넘은 pt := @a; 요렇게 하시면 될겁니다.

    그리고 아마..

    b := pt;

    ShowMEssage(b.tp); <- 요렇게 하시면 확인하실수 있을겁니다.

    그럼.. 즐거운시간 되세요..



    >

    >

    >

    >

    > end;







    델초보 wrote:

    > 안녕하세요.

    > 델파이 공부을 막시작한 초보에요

    > 레코드을 작성해서 포인터 변수에다 데입하려고 하는데 잘않되요

    > 넘 초보적인 질문이라 죄송 합니다.

    > 절거운 날 되세요.~~

    >

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > a:Tss;

    > str:string;

    > pt:pointer;

    > b:^Tss;

    > begin

    > strcopy( a.tp , 'hi this is test.');

    >

    >

    > pt = ^a; <----- 요기서 애러가...흑

    >

    >

    >

    >

    > end;

    >

    > end.