안녕하세요.
델파이 공부을 막시작한 초보에요
레코드을 작성해서 포인터 변수에다 데입하려고 하는데 잘않되요
넘 초보적인 질문이라 죄송 합니다.
절거운 날 되세요.~~
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.
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.