Q&A

  • record형에 point를 사용하는 방법???
델파이 3.0 사용자 입니다.



type

pt_item = record

KSCode : Word;

NeoCode : Word;

end;

t_item = ^pt_item;



var

ksusr_tbl : t_item;



선언을 하고



ksusr_tbl := AllocMem( 100 );



for i:=0 to 100 do

begin

ksusr_tbl[i].KsCode := id_neo;

ksusr_tbl[i].NeoCode := id_neo;

end;



사용을 하고자 하는데 Error Message:Array type requied가 발생 합니다.

사용이 틀렸는지 알려주세요..



감사합니다.



줄거운 하루되세요 ....^_^



1  COMMENTS
  • Profile
    타락천사 2000.05.17 18:46
    안녕하세여.. 타락임다.. ^^



    당근 에러가 나져.. 이렇게 바꿔보세여..



    type

    P_Item = ^T_Item;

    T_item = record

    ----

    end;



    var

    Ksusr_Tbl : P_Item;

    begin

    New(Ksusr_Tbl);

    // 여기서 작업을 한다.

    Dispose(Ksusr_Tbl);

    end;



    만약 Ksusr_Tbl 어레이를 쓰고자한다면..



    Ksusr_Arr : array [0..ARRSIZE] of P_Item;



    프로그램처음 실행시 아래코드를 넣습니다.



    for i := 0 to ARRSIZE to

    New(Ksusr_Arr[i]);



    프로그램에서 사용후 프로그램 종료시



    for i := 0 to ARRSIZE to

    Dispose(Ksusr_Arr[i]);



    note)..님에 비해 T_Item 과 P_Item을 바꿔서 썼으니까 알아보세여..



    왕초보 타락천사. ^____^



    김문기 wrote:

    > 델파이 3.0 사용자 입니다.

    >

    > type

    > pt_item = record

    > KSCode : Word;

    > NeoCode : Word;

    > end;

    > t_item = ^pt_item;

    >

    > var

    > ksusr_tbl : t_item;

    >

    > 선언을 하고

    >

    > ksusr_tbl := AllocMem( 100 );

    >

    > for i:=0 to 100 do

    > begin

    > ksusr_tbl[i].KsCode := id_neo;

    > ksusr_tbl[i].NeoCode := id_neo;

    > end;

    >

    > 사용을 하고자 하는데 Error Message:Array type requied가 발생 합니다.

    > 사용이 틀렸는지 알려주세요..

    >

    > 감사합니다.

    >

    > 줄거운 하루되세요 ....^_^

    >