Q&A
- 포인터에대한 질문입니다..(PPoint)
안녕하세요. 저는 포인터에 대한 질문좀 할려고 합니다. c를 할때도 느낀것이지만 포인터에 대한 공포가 잘 안없었지네요...ㅠ.ㅠ;;
하여튼 포인터를 쓰면 편하기는 하지만 너무 헷갈려서리..
이번에 "파워오브델파이"를 보다가 신기한 컴포넌트가 있더군요. 폼의 모양을 마음대로 바꾸는 컴포넌트데요. 써보니까 편하기도 해서 소스를 보다가 이상한점을 발견했읍니다..
일단 소스의 일부분입니다..
procedure TTracePixel.StartTrace;
type
TPixelArray = Array [0..0] of TPoint;
var
ix, iy, ox, oy : integer;
first_x,first_y : integer;
iCount : integer;
VectorizedPixels : ^TPoint;
PixelList : TList;
PixelArray : ^TPixelArray;
begin
new( VectorizedPixels );
VectorizedPixels^.x := first_x;
VectorizedPixels^.y := first_y;
PixelList.Add( VectorizedPixels );
repeat
TraceBitmap(ix,iy,ox,oy);
new( VectorizedPixels );
VectorizedPixels^.x := ix;
VectorizedPixels^.y := iy;
PixelList.Add( VectorizedPixels );
until (ix = first_x) and (iy = first_y);
{ 점의 갯수만큼의 배열을 동적으로 할당한다. }
GetMem( PixelArray, PixelList.Count * SizeOf(TPoint) );
for iCount := 0 to PixelList.Count - 1 do
begin
// 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
PixelArray[iCount].x := PPoint(PixelList.Items[0])^.x + Left;
PixelArray[iCount].y := PPoint(PixelList.Items[0])^.y + Top;
// 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
Dispose(PPoint(PixelList.Items[0]));
PixelList.Delete(0);
end;
위에서처럼 PPoint라는 형으로 사용을하였는데.. 그런형은 또 처음이구요.
또 왜저렇게 사용하였는지도 잘....
제 생각에는 리스트형으로 선언된 PixelList를 위에서 부터 하나하나씩 제거해주는 형때인것 같은데 저런 형은 처음보거든요. 그래서 어디 사용자 정의형인것같아서 소스를 프린트해서까지 보았지만 역시 모르겠더군요.. 저에게 이번에 포인터에 대한 공포가 가실수 있도록 대답좀해주세요. 후후
혹시 질문이 길어서 싫증나시더라도 고수분들의 도움 꼭 부탁드립니다.
하여튼 포인터를 쓰면 편하기는 하지만 너무 헷갈려서리..
이번에 "파워오브델파이"를 보다가 신기한 컴포넌트가 있더군요. 폼의 모양을 마음대로 바꾸는 컴포넌트데요. 써보니까 편하기도 해서 소스를 보다가 이상한점을 발견했읍니다..
일단 소스의 일부분입니다..
procedure TTracePixel.StartTrace;
type
TPixelArray = Array [0..0] of TPoint;
var
ix, iy, ox, oy : integer;
first_x,first_y : integer;
iCount : integer;
VectorizedPixels : ^TPoint;
PixelList : TList;
PixelArray : ^TPixelArray;
begin
new( VectorizedPixels );
VectorizedPixels^.x := first_x;
VectorizedPixels^.y := first_y;
PixelList.Add( VectorizedPixels );
repeat
TraceBitmap(ix,iy,ox,oy);
new( VectorizedPixels );
VectorizedPixels^.x := ix;
VectorizedPixels^.y := iy;
PixelList.Add( VectorizedPixels );
until (ix = first_x) and (iy = first_y);
{ 점의 갯수만큼의 배열을 동적으로 할당한다. }
GetMem( PixelArray, PixelList.Count * SizeOf(TPoint) );
for iCount := 0 to PixelList.Count - 1 do
begin
// 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
PixelArray[iCount].x := PPoint(PixelList.Items[0])^.x + Left;
PixelArray[iCount].y := PPoint(PixelList.Items[0])^.y + Top;
// 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
Dispose(PPoint(PixelList.Items[0]));
PixelList.Delete(0);
end;
위에서처럼 PPoint라는 형으로 사용을하였는데.. 그런형은 또 처음이구요.
또 왜저렇게 사용하였는지도 잘....
제 생각에는 리스트형으로 선언된 PixelList를 위에서 부터 하나하나씩 제거해주는 형때인것 같은데 저런 형은 처음보거든요. 그래서 어디 사용자 정의형인것같아서 소스를 프린트해서까지 보았지만 역시 모르겠더군요.. 저에게 이번에 포인터에 대한 공포가 가실수 있도록 대답좀해주세요. 후후
혹시 질문이 길어서 싫증나시더라도 고수분들의 도움 꼭 부탁드립니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김종우
- •
- 1999.05.26 18:57
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 19:23memo component의 Assign 메소드를 사용해 보세요... 김종우 wrote: > 안녕하십니까? > > 테이블의... -
김종우•1999.05.26 19:51신인재 wrote: > memo component의 Assign 메소드를 사용해 보세요... > > 김종우 wrote: > > 안녕하...
-
신인재•1999.05.27 03:34Memo1.Lines.Assign(query1.fields[4]); 이런 식으로 쓰면 될껍니다. 김종우 wrote: > 신인재 wrote: ...
-
- simmy
- •
- 1999.05.26 18:33
- 1 COMMENTS
- /
- 0 LIKES
-
redhead•1999.05.26 22:06simmy wrote: > 프로그램이 실행되는 동안에는 레코드의 수정,저장,삭제 모두 잘 되는데, > 시스템을 종...
-
- 영이...
- •
- 1999.05.26 17:47
- 2 COMMENTS
- /
- 0 LIKES
-
신호성•1999.05.27 00:34영이... wrote: > table에 제품코드, 판매일자, 판매단가, 수량, 판매금액이 있습니다. > 그 중에서 코드...
-
한•1999.05.26 18:12영이... wrote: > table에 제품코드, 판매일자, 판매단가, 수량, 판매금액이 있습니다. > 그 중에서 코드...
-
- peter30
- •
- 1999.05.26 12:51
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 15:11아마도 TQuery가 조인을 할 때 임시 파일이 생기는것 같습니다. DBF파일이라면 BDE말고 상용 컴포넌트인 ...
-
- 조진희
- •
- 1999.05.26 09:16
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.05.27 01:48조진희 wrote: > 퀵 레포트 출력할때. run하기 전에 프리뷰하면 오른쪽 박스가 잘 나오는데 > run해서 ...
-
- saint09
- •
- 1999.05.26 08:45
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:42제가 아래에 분명 답변 해드렸는데요...? 아래를 찾아보세요. Chart 로 검색을 해보세요. saint09 wro...
-
- 한상훈
- 1999.05.26 07:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 강경중
- •
- 1999.05.26 07:17
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.05.26 18:33강경중 wrote: > 도와주세요 > 델파이 헬퍼의 묻고 답하기 에서 > 렌으로 연결된 컴퓨터의 이름을 알 수...
-
- 이장욱
- •
- 1999.05.26 06:01
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 06:53아래는 델파이 슈퍼 페이지 주소입니다. 찾아보세요....comm32.zip이란 파일이 있더군요... http://sun...
-
- 이진우
- •
- 1999.05.26 04:51
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 06:58Rx컴포넌트를 인스톨하면 인스톨된 디렉토리에 Unit Subdirectory에 RxCalc.pas 가 있습니다. 이진우...
-
- 이진우
- •
- 1999.05.26 04:42
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:39없습니다... 이진우 wrote: > 전체가 아니라도 계산기의 버튼 사이즈만 어떻게 고칠려고 하는데... > ...
-
- 이진우
- •
- 1999.05.26 04:39
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:45셀을 합치실 수는 없습니다. 수동으로 합치려는 셀들의 스트링들을 만들어서 셀(Row든 Column이든)을 없애...
-
- 이상석
- •
- 1999.05.26 03:49
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 07:09K := DMtwt.TblExam.FieldByName('No1').Asstring;//.AsInteger; 여기부분이 좀 이상하군요 쿼리에서...
-
- 이상석
- •
- 1999.05.26 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
서형민•1999.05.26 06:08이상석 wrote: > 안녕하세요, 시사영어사에 재직중에 있는 이상석입니다. > 다름이 아니오라 DB 컬럼을 ...
-
- 최덕환
- •
- 1999.05.26 03:09
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요. 저는 포인터에 대한 질문좀 할려고 합니다. c를 할때도 느낀것이지만 포인터에 대한 공포가 잘 안없었지네요...ㅠ.ㅠ;; 하여튼 포인터를 쓰면 편하기는 하지만 너무 헷갈려서리.. 이번에 "파워오브델파이"를 보다가 신기한 컴...-
이정욱•1999.05.26 11:47질문은 긴데.. 답변은 간단할것 같네요... 흐.. PPoint는 TPoint의 Pointer형입니다. PixelList.Item...
-
- 지니
- 1999.05.26 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 장영선
- 1999.05.26 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- july
- 1999.05.26 01:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김윤정
- •
- 1999.05.26 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
서형민•1999.05.26 06:02김윤정 wrote: > 안녕하세요... > API를 공부하기 시작한지 얼마되지 않은 새내기입니다... > > 현재 ...
-
김윤정•1999.05.26 17:13적어주신 코드는 해당 프로그램 안에서만 Active control을 찾을 수 있는것 같은데요... 저는 윈도우상의...
-
- 최석기
- 1999.05.25 23:22
- 0 COMMENTS
- /
- 0 LIKES
PPoint는 TPoint의 Pointer형입니다.
PixelList.Items[0]를 TPoint의 Pointer형으로 TypeCasting한것이죠.
최덕환 wrote:
> 안녕하세요. 저는 포인터에 대한 질문좀 할려고 합니다. c를 할때도 느낀것이지만 포인터에 대한 공포가 잘 안없었지네요...ㅠ.ㅠ;;
> 하여튼 포인터를 쓰면 편하기는 하지만 너무 헷갈려서리..
> 이번에 "파워오브델파이"를 보다가 신기한 컴포넌트가 있더군요. 폼의 모양을 마음대로 바꾸는 컴포넌트데요. 써보니까 편하기도 해서 소스를 보다가 이상한점을 발견했읍니다..
> 일단 소스의 일부분입니다..
>
> procedure TTracePixel.StartTrace;
>
> type
> TPixelArray = Array [0..0] of TPoint;
>
> var
> ix, iy, ox, oy : integer;
> first_x,first_y : integer;
> iCount : integer;
> VectorizedPixels : ^TPoint;
> PixelList : TList;
> PixelArray : ^TPixelArray;
>
> begin
> new( VectorizedPixels );
> VectorizedPixels^.x := first_x;
> VectorizedPixels^.y := first_y;
> PixelList.Add( VectorizedPixels );
>
> repeat
>
> TraceBitmap(ix,iy,ox,oy);
>
> new( VectorizedPixels );
> VectorizedPixels^.x := ix;
> VectorizedPixels^.y := iy;
> PixelList.Add( VectorizedPixels );
> until (ix = first_x) and (iy = first_y);
>
> { 점의 갯수만큼의 배열을 동적으로 할당한다. }
> GetMem( PixelArray, PixelList.Count * SizeOf(TPoint) );
>
> for iCount := 0 to PixelList.Count - 1 do
>
> begin
>
> // 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
>
> PixelArray[iCount].x := PPoint(PixelList.Items[0])^.x + Left;
> PixelArray[iCount].y := PPoint(PixelList.Items[0])^.y + Top;
>
> // 이곳이 문제의 부분입니다. $$$%%%@@~!@#$##$#@!%!@~@~
>
> Dispose(PPoint(PixelList.Items[0]));
> PixelList.Delete(0);
> end;
>
>
> 위에서처럼 PPoint라는 형으로 사용을하였는데.. 그런형은 또 처음이구요.
> 또 왜저렇게 사용하였는지도 잘....
> 제 생각에는 리스트형으로 선언된 PixelList를 위에서 부터 하나하나씩 제거해주는 형때인것 같은데 저런 형은 처음보거든요. 그래서 어디 사용자 정의형인것같아서 소스를 프린트해서까지 보았지만 역시 모르겠더군요.. 저에게 이번에 포인터에 대한 공포가 가실수 있도록 대답좀해주세요. 후후
>
> 혹시 질문이 길어서 싫증나시더라도 고수분들의 도움 꼭 부탁드립니다.