델파이 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가 발생 합니다.
사용이 틀렸는지 알려주세요..
감사합니다.
줄거운 하루되세요 ....^_^
당근 에러가 나져.. 이렇게 바꿔보세여..
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가 발생 합니다.
> 사용이 틀렸는지 알려주세요..
>
> 감사합니다.
>
> 줄거운 하루되세요 ....^_^
>