* 사용환경 : 델파이5 / Windows 98
type
rAA = Record
a1 : String[2];
a2 : String[10];
end;
type
rBB = Record
b1 : String[12];
b2 : String[10];
end;
procedure ...................
var
sndbuf : Poniter;
aa : rAA;
bb : rBB;
begin
sndbuf = AllocMem(100);
:
:
:
with aa do
begin
a1 := '1';
a2 := '123456';
end;
with bb do
begin
b1 := '10000000';
b2 := 'abcdefg';
end;
sndbuf에다가 aa와 bb를 assign하려구함.
:
:
:
end;
아래와 같이 하세요...
Assign할 때
sndbuf := @aa;
sndbuf := @bb;
Read할때
rAA(sndBuf^).a1
rAA(sndBuf^).a2
rBB(sndBuf^).b1
rBB(sndBuf^).b2
^^ 항상 즐코하세요.
박성일 wrote:
> * 사용환경 : 델파이5 / Windows 98
>
> type
> rAA = Record
> a1 : String[2];
> a2 : String[10];
> end;
>
> type
> rBB = Record
> b1 : String[12];
> b2 : String[10];
> end;
>
> procedure ...................
> var
> sndbuf : Poniter;
> aa : rAA;
> bb : rBB;
>
> begin
> sndbuf = AllocMem(100);
> :
> :
> :
> with aa do
> begin
> a1 := '1';
> a2 := '123456';
> end;
>
> with bb do
> begin
> b1 := '10000000';
> b2 := 'abcdefg';
> end;
>
> sndbuf에다가 aa와 bb를 assign하려구함.
>
> :
> :
> :
>
> end;
>