Q&A
- Class내 정의된 procedure내에서 자신지정은?
초보라 잘 몰라서 물어요..
type
TMy=class
i:byte;
procedure init(you:TMy);
end;
var My,Your:TMy;
procedure TMy.init;
begin
i:=0;
end;
procedure TMy.A1(you:TMy=nil);
begin
if you=nil then you:=(TMy); <==
...
you.i:=10;
end;
procedure A1;
var n:byte;
begin
My:=TMy.Create; My.init;
Your:=TMy.Create; Your.init;
My.A1();
My.A1(You);
end;
A1에 인자가 없으면 My.i:=10 이고, 있으면 인자.i:=10이고 싶은데 어떻하져..??
type
TMy=class
i:byte;
procedure init(you:TMy);
end;
var My,Your:TMy;
procedure TMy.init;
begin
i:=0;
end;
procedure TMy.A1(you:TMy=nil);
begin
if you=nil then you:=(TMy); <==
...
you.i:=10;
end;
procedure A1;
var n:byte;
begin
My:=TMy.Create; My.init;
Your:=TMy.Create; Your.init;
My.A1();
My.A1(You);
end;
A1에 인자가 없으면 My.i:=10 이고, 있으면 인자.i:=10이고 싶은데 어떻하져..??
2
COMMENTS
-
-
밥벌레 wrote:
> 한상훈 wrote:
> > 초보라 잘 몰라서 물어요..
> >
> > type
> > TMy=class
> > i:byte;
> > procedure init(you:TMy);
> > end;
> > var My,Your:TMy;
> >
> > procedure TMy.init;
> > begin
> > i:=0;
> > end;
> > procedure TMy.A1(you:TMy=nil);
> > begin
> > if you=nil then you:=(TMy); <==
> > ...
> > you.i:=10;
> > end;
> >
> > procedure A1;
> > var n:byte;
> > begin
> > My:=TMy.Create; My.init;
> > Your:=TMy.Create; Your.init;
> > My.A1();
> > My.A1(You);
> > end;
> > A1에 인자가 없으면 My.i:=10 이고, 있으면 인자.i:=10이고 싶은데 어떻하져..??
> >
>
> if you=nil then you := Self;
>
> 이거 물어보신거 맞죠?? 질문 해석이 무지하게 힘들었음..^^
감사합니다.. 저두 제의문을 표현하는데 무지 힘들었음.. ^^
(NOTICE) You must be logged in to comment on this post.
-
- 한상훈
- •
- 2000.07.10 05:29
- 2 COMMENTS
- /
- 0 LIKES
초보라 잘 몰라서 물어요.. type TMy=class i:byte; procedure init(you:TMy); end; var My,Your:TMy; procedure TMy.init; begin i:=0; end; procedure TMy.A1(you:TMy=nil); begin if you=nil then you:=(TMy);-
밥벌레•2000.07.14 16:58한상훈 wrote: > 초보라 잘 몰라서 물어요.. > > type > TMy=class > i:byte; > procedur...
-
한상훈•2000.07.15 11:57밥벌레 wrote: > 한상훈 wrote: > > 초보라 잘 몰라서 물어요.. > > > > type > > TMy=class > > ...
-
- 어린왕자
- 2000.07.10 04:42
- 0 COMMENTS
- /
- 0 LIKES
-
-
Black}{ole•2000.07.10 01:50한상훈 wrote: > 초보라 잘몰라서 물어요.. > > type > TMy=class > object1:Tobject1; > end; ...
-
-
- 한상훈
- •
- 2000.07.09 23:03
- 9 COMMENTS
- /
- 0 LIKES
-
양병규•2000.07.10 11:28
-
임형호•2000.07.10 14:36
-
한상훈•2000.07.10 13:32
-
임형호•2000.07.09 23:16
-
한상훈•2000.07.10 00:29
-
임형호•2000.07.10 04:49
-
한상훈•2000.07.10 07:32
- • • •
-
- 헬프미
- 2000.07.09 09:42
- 0 COMMENTS
- /
- 0 LIKES
-
- parkisu
- 2000.07.09 09:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승리
- •
- 2000.07.09 08:26
- 2 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.07.10 08:24이승리 wrote: > 안녕하세요.. > > 폼크기를 최대한 작게 할려는데, Width 속성 100 이하로 안돼네요.....
-
Mr.Q•2000.07.21 13:52Mr.Q wrote: > 이승리 wrote: > > 안녕하세요.. > > > > 폼크기를 최대한 작게 할려는데, Width 속성 ...
-
- 이승리
- 2000.07.09 07:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 한상훈
- •
- 2000.07.09 07:11
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.10 23:06한상훈 wrote: > Titlebar에 버튼같은 임의의 컴포넌트를 달수있나여? > 제목을 없앤뒤 바를 그려넣는 방...
-
톰과 제리•2000.07.09 07:56RA라이브러리에 컴포가 있습니다. 글구 이건 예젭니다. 그럼 사랑과 정의의 이름으로 ... kl type...
-
- 유레카
- 2000.07.09 05:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종근
- •
- 2000.07.09 03:05
- 1 COMMENTS
- /
- 0 LIKES
-
김진호•2000.07.10 22:02김종근 wrote: > > 제가 하려고 하는 목적은 Html에서 화일명을 ActiveX가 전달받아 화면의 > Active...
-
-
타락천사•2000.07.09 02:31안녕하세여..타락임다.. -- 왜 그런 질문을? ?_? 델파이에는 출력콤포넌트가 기본적으로 들어가 있어...
-
-
- 아리엘
- •
- 2000.07.09 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.09 00:43아리엘 wrote: > 안녕하세요 이번엔 사운드 입니다. > > 그냥 wav플레이는 알겠는데 꼭 디렉토리 지정...
-
김진호•2000.07.10 22:19Black}{ole wrote: > 아리엘 wrote: > > 안녕하세요 이번엔 사운드 입니다. > > > > 그냥 wav플레이는...
-
- 바다
- 2000.07.08 23:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 한상훈
- •
- 2000.07.08 22:40
- 1 COMMENTS
- /
- 0 LIKES
-
병부잡이•2000.07.09 16:49한상훈 wrote: > MDI Form에서 단축키를 사용하려고 OnKeyDown에 코드를 했지만 반응이 없네요.. > 물론 ...
-
- 한상훈
- •
- 2000.07.08 22:31
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.08 23:48안녕하세요. 최용일입니다. 파라매터중에 Source가 있죠. 이것이 드래그 시작 객체입니다. if Source...
-
- 이주승
- •
- 2000.07.08 21:15
- 3 COMMENTS
- /
- 0 LIKES
-
무명•2000.07.08 21:50이주승 wrote: > MediaPlayer 콤포넌트를 이용해 간단한 MP3 파일 들어보기 프로그램을 작성했음. > 그런...
-
이주승•2000.07.08 22:32무명 wrote: > 이주승 wrote: > > MediaPlayer 콤포넌트를 이용해 간단한 MP3 파일 들어보기 프로그램을 ...
-
이경문•2000.07.13 02:30MP3를 지원하는 컴포넌트를 사용해 보세요. DLL이 필요한데 필요한 DLL 및 EXE만 있으면 됩니다. http://...
-
- 홍승현
- 2000.07.08 21:13
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 김종석
- 2000.07.08 20:49
- 0 COMMENTS
- /
- 0 LIKES
> 초보라 잘 몰라서 물어요..
>
> type
> TMy=class
> i:byte;
> procedure init(you:TMy);
> end;
> var My,Your:TMy;
>
> procedure TMy.init;
> begin
> i:=0;
> end;
> procedure TMy.A1(you:TMy=nil);
> begin
> if you=nil then you:=(TMy); <==
> ...
> you.i:=10;
> end;
>
> procedure A1;
> var n:byte;
> begin
> My:=TMy.Create; My.init;
> Your:=TMy.Create; Your.init;
> My.A1();
> My.A1(You);
> end;
> A1에 인자가 없으면 My.i:=10 이고, 있으면 인자.i:=10이고 싶은데 어떻하져..??
>
if you=nil then you := Self;
이거 물어보신거 맞죠?? 질문 해석이 무지하게 힘들었음..^^