Q&A
- 동적 생성시에 인자를 같이 전달하는 방법 없나여?
타이머를 동적 생성한 후 이벤트에 인자를 넣는 건데
타이머의 번호(index1)와 구별인자(index2)를 이벤트내에서 처리 할려구합니다.
꼭 타이머는 아니더라도(다른 VCL의 경우도) 방법이 있는지요?
Componet의 태그를 쓰는 방법은 알고 있는거염...
고수님... 꼭 도와주세여..... ㅠ.ㅠ;;
밑에 처럼 해봤는데 전혀 안되더라구여...
public
procedure OnMyTimer(Sender: TObject; index1, index2 : integer);
var
MyTimer : Array[1..8] of TTimer;
implementation
procedure TForm1.OnMyTimer(Sender: TObject; index1, index2 : integer);
var
aa : integer;
begin
aa := index1;
// 처리 내용
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 1 to 8 do
begin
MyTimer[i] := TTimer.Create(Self);
MyTimer[i].OnTimer := OnMyTimer(MyTimer[i],i,1);
end;
end;
타이머의 번호(index1)와 구별인자(index2)를 이벤트내에서 처리 할려구합니다.
꼭 타이머는 아니더라도(다른 VCL의 경우도) 방법이 있는지요?
Componet의 태그를 쓰는 방법은 알고 있는거염...
고수님... 꼭 도와주세여..... ㅠ.ㅠ;;
밑에 처럼 해봤는데 전혀 안되더라구여...
public
procedure OnMyTimer(Sender: TObject; index1, index2 : integer);
var
MyTimer : Array[1..8] of TTimer;
implementation
procedure TForm1.OnMyTimer(Sender: TObject; index1, index2 : integer);
var
aa : integer;
begin
aa := index1;
// 처리 내용
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 1 to 8 do
begin
MyTimer[i] := TTimer.Create(Self);
MyTimer[i].OnTimer := OnMyTimer(MyTimer[i],i,1);
end;
end;
2
COMMENTS
-
-
고마워여 저도 이방법을 찾고 있었는데 도움이 많이 됐습니다.
kylix wrote:
> 이벤트는 그 형이 규격화되어 있습니다. 그러므로 새로운 객체를 만들고, 그 타이머이벤트형을 다시 만들어서 쓰지 않은한 아래와 같은 경우는 불가능합니다.
>
> Tag를 쓰는 방법을 아신다면 Tag를 쓰세요. Tag는 32비트정수입니다. 형변환만 하시면
> 어떤형의 변수든지 다 들어갈 수 있으니까요. 님의 경우는 레코드를 이용해서 태그에다 넣어주시면 되겠네요...
>
> type
> PMyRec = ^TMyRec;
> TMyRec = record
> Index1, Index2: Integer;
> end;
>
> procedure TForm1.OnMyTimer(Sender: TObject);
> var
> aa : integer;
> begin
> aa := PMyRec(TTimer(Sender).Tag).Index1;
> // 처리 내용
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> i : integer;
> P: PMyRec;
> begin
> for i := 1 to 8 do
> begin
> MyTimer[i] := TTimer.Create(Self);
> MyTimer[i].OnTimer := OnMyTimer;
> New(P);
> P.Index1 := i;
> P.Index := 1;
> MyTimer[i].Tag := Integer(P);
> // 이객체 해제할때 Tag에 설정된 포인터를 먼저 해제해주세요...
> // Dispose(PMyRec(MyTimer[i].Tag));
> end;
> end;
>
> 초보여염 wrote:
> > 타이머를 동적 생성한 후 이벤트에 인자를 넣는 건데
> > 타이머의 번호(index1)와 구별인자(index2)를 이벤트내에서 처리 할려구합니다.
> > 꼭 타이머는 아니더라도(다른 VCL의 경우도) 방법이 있는지요?
> > Componet의 태그를 쓰는 방법은 알고 있는거염...
> > 고수님... 꼭 도와주세여..... ㅠ.ㅠ;;
> >
> > 밑에 처럼 해봤는데 전혀 안되더라구여...
> >
> > public
> > procedure OnMyTimer(Sender: TObject; index1, index2 : integer);
> >
> > var
> > MyTimer : Array[1..8] of TTimer;
> > implementation
> >
> > procedure TForm1.OnMyTimer(Sender: TObject; index1, index2 : integer);
> > var
> > aa : integer;
> > begin
> > aa := index1;
> > // 처리 내용
> > end;
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > var
> > i : integer;
> > begin
> > for i := 1 to 8 do
> > begin
> > MyTimer[i] := TTimer.Create(Self);
> > MyTimer[i].OnTimer := OnMyTimer(MyTimer[i],i,1);
> > end;
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
-
감초•2001.04.14 21:0610000개의 레코드라면 쿼리를 쓰는게 아주아주 많이 빠릅니다. 동일한 테이블에서 분류만 다른경우 각각의...
-
칼~•2001.04.17 19:551만개정도라면 별로 아무것이나 써도 별로 상관없을 듯... 글구..따로따로 sum할수 있음 ex) sele...
-
-
- nicesky
- 2001.04.14 20:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동수
- •
- 2001.04.14 20:00
- 4 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.14 20:47QRShape을 사용하세요. 김동수 wrote: > 레포트 출력폼에 대각선을 그으려고 하는데....그런 기능을 하...
-
김동수•2001.04.14 21:20QRShape의 어디에 그런 기능이 있는지 모르겠습니다. 감초 wrote: > QRShape을 사용하세요. > > 김...
-
감초•2001.04.14 22:42정확히 어떻게 선을 그으려 하는가요? 저는 QShape을 사용해서 모든 선을 표현했거든요. 단 0, 90, 180, ...
-
하기•2001.04.15 00:05제가 알기로는 사선긋는 방법은 없네요.. 꼭필요하시다면 QrImage에 사선을 그려 넣으신다음 그것을 Load ...
-
- 김동수
- •
- 2001.04.14 19:59
- 1 COMMENTS
- /
- 0 LIKES
-
허접~•2001.04.17 02:35DEL3.0이후부터 제공되는 MIDAS를 사용하세요 DCOM, TCP Socket등으로 접속이 가능하답니다. 자세한 사항...
-
- 김훈
- •
- 2001.04.14 19:56
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:10흠~~ 혹시 라디오그룹에 아이템을 넣어주시지 않은 것은 아닌지.... 디자인시 라디오그룹의 Items속성을...
-
- 초보여염
- •
- 2001.04.14 19:45
- 2 COMMENTS
- /
- 0 LIKES
타이머를 동적 생성한 후 이벤트에 인자를 넣는 건데 타이머의 번호(index1)와 구별인자(index2)를 이벤트내에서 처리 할려구합니다. 꼭 타이머는 아니더라도(다른 VCL의 경우도) 방법이 있는지요? Componet의 태그를 쓰는 방법은 알고 있...-
kylix•2001.04.14 20:26이벤트는 그 형이 규격화되어 있습니다. 그러므로 새로운 객체를 만들고, 그 타이머이벤트형을 다시 만들어...
-
이제관•2001.05.09 00:17고마워여 저도 이방법을 찾고 있었는데 도움이 많이 됐습니다. kylix wrote: > 이벤트는 그 형이 규격화...
-
- 레간자
- •
- 2001.04.14 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
sky•2001.04.14 21:28SELECT 학과, DECODE(년도,'1998',개수,0) AS "1998", DECODE(년도,'1999',개수,0) AS "1999", DECODE(년도...
-
- 미지수
- 2001.04.14 19:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.04.14 19:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은규
- •
- 2001.04.14 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:33나머지 세개의 이벤트(Button2Click, Button3Click, Button4Click)는 필요 없으니까 지우시고요... Button2...
-
- 쿠사잡췌
- 2001.04.14 18:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.04.14 18:23
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:41일반적으로 구조체형의 경우 델파이는 빠른 속도를 위해 4바이트씩 재배치합니다. 그러므로 구조체형의 크...
-
델초보•2001.04.15 00:03.
-
- 초보는힘들어
- 2001.04.14 17:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.04.14 17:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.04.14 08:20
- 1 COMMENTS
- /
- 0 LIKES
-
kukkek•2001.04.14 14:46델초보 wrote: > 도와주세요 > 델파이 초보자 입니다. > 다름이 아니라. 일자조회를 할경우 시작일(Stri...
-
- 이성운
- •
- 2001.04.14 07:39
- 1 COMMENTS
- /
- 0 LIKES
-
optech•2001.04.14 08:04폼스타일이 childform로 컴파일 한 상태면 되지 않을 겁니다.. 한번 컴파일 되면 show로만 띄우던지 showm...
-
- 설창원
- 2001.04.14 06:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 설창원
- •
- 2001.04.14 06:04
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.14 06:10혹시 꺼구로 아닙니까? 아님 Call by reference하고 착각하셨는지?? 꿈꾸는 바보 류.. 설창원 wro...
-
- 박태준
- 2001.04.14 05:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보자
- •
- 2001.04.14 04:46
- 3 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.04.14 08:36yo` 흠냐...테이블의 구조마다 레코드수가 틀리지만 보통 사이즈가 120 메가정도 되면 Table is Full ...
-
류종택•2001.04.14 06:20혹시나해서 답변을 올립니다. 파라독스의 저장한계는 개인적으로 생각해서 레코드의 크기하고도 문제가 ...
-
major•2001.04.14 04:55델초보자 wrote: > 지금 파라독스를 이용해서 프로그램을 사용하고 있는데 > 데이타를 저장시 며칠전 부...
Tag를 쓰는 방법을 아신다면 Tag를 쓰세요. Tag는 32비트정수입니다. 형변환만 하시면
어떤형의 변수든지 다 들어갈 수 있으니까요. 님의 경우는 레코드를 이용해서 태그에다 넣어주시면 되겠네요...
type
PMyRec = ^TMyRec;
TMyRec = record
Index1, Index2: Integer;
end;
procedure TForm1.OnMyTimer(Sender: TObject);
var
aa : integer;
begin
aa := PMyRec(TTimer(Sender).Tag).Index1;
// 처리 내용
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
P: PMyRec;
begin
for i := 1 to 8 do
begin
MyTimer[i] := TTimer.Create(Self);
MyTimer[i].OnTimer := OnMyTimer;
New(P);
P.Index1 := i;
P.Index := 1;
MyTimer[i].Tag := Integer(P);
// 이객체 해제할때 Tag에 설정된 포인터를 먼저 해제해주세요...
// Dispose(PMyRec(MyTimer[i].Tag));
end;
end;
초보여염 wrote:
> 타이머를 동적 생성한 후 이벤트에 인자를 넣는 건데
> 타이머의 번호(index1)와 구별인자(index2)를 이벤트내에서 처리 할려구합니다.
> 꼭 타이머는 아니더라도(다른 VCL의 경우도) 방법이 있는지요?
> Componet의 태그를 쓰는 방법은 알고 있는거염...
> 고수님... 꼭 도와주세여..... ㅠ.ㅠ;;
>
> 밑에 처럼 해봤는데 전혀 안되더라구여...
>
> public
> procedure OnMyTimer(Sender: TObject; index1, index2 : integer);
>
> var
> MyTimer : Array[1..8] of TTimer;
> implementation
>
> procedure TForm1.OnMyTimer(Sender: TObject; index1, index2 : integer);
> var
> aa : integer;
> begin
> aa := index1;
> // 처리 내용
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> i : integer;
> begin
> for i := 1 to 8 do
> begin
> MyTimer[i] := TTimer.Create(Self);
> MyTimer[i].OnTimer := OnMyTimer(MyTimer[i],i,1);
> end;
> end;
>