Q&A
var
i : integer;
ii : String;
begin
For i:= 1 to 5 do
ii := IntToStr(i);
begin
With FindComponent('QRLG'+ii) as TQRLabel do Caption := k(i);
// 밑에 문장에 문제가 있어요......//
// QRLabel값만 찾아서 계산만 해주면 되는데... 어떻게 할 방법이 없나요??//
With FindComponent('QRLT'+ii) as TQRLabel do Caption :=
IntToStr(StrToInt(With FindComponent('QRLS'+ii) as TQRLabel do Caption)-
StrToInt(With FindComponent('QRLG'+ii) as TQRLabel do Caption));
end;
end;
부탁드립니다...
- 콤퍼넌트 변수처리 과정에서...
var
i : integer;
ii : String;
begin
For i:= 1 to 5 do
ii := IntToStr(i);
begin
With FindComponent('QRLG'+ii) as TQRLabel do Caption := k(i);
// 밑에 문장에 문제가 있어요......//
// QRLabel값만 찾아서 계산만 해주면 되는데... 어떻게 할 방법이 없나요??//
With FindComponent('QRLT'+ii) as TQRLabel do Caption :=
IntToStr(StrToInt(With FindComponent('QRLS'+ii) as TQRLabel do Caption)-
StrToInt(With FindComponent('QRLG'+ii) as TQRLabel do Caption));
end;
end;
부탁드립니다...
2
COMMENTS
-
-
허준 wrote:
> 반갑소 어이! 허준이라 하오.
> 처리 방식이 잘못 된것같소.
> With FindComponent('QRLG'+ii) as TQRLabel do Caption := k(i);
> 위와 같이 하면 에러날 확률이 있소.
> 먼저 as용법을 쓰려먼 먼저 is로 Typ Checking을해야하오.
> var
> lni : Byte;
> begin
> for lni : 0 to Self.ComponentCount - 1 do
> begin
> if (Components[lni] is TQRLabel) Then // is로 먼저 Type Check
> if (Components[lni] As TQRLabe).Caption := 여기에 값넣기 // Type Casting
> end;
> end;
> 부디 도움이 되었으면 하오.
> 어허 탕약 쫄겠네...
제가 묻고자 하는 질문은요....
QRLg1 := 1
QRLg2 := 2
QRLG3 := 3 이런식으로 라벨이름을 변수로만들어서 증가시켜서 값을 넣구요...
이런식으로 들어간 라벨과 라벨을 계산해줄수 있는 방법을 알고싶습니다...
예로 QRLg(i+1) := QRLG(i)-QRLb(i+1) 이런식으로요...
(NOTICE) You must be logged in to comment on this post.
-
- 박소연
- 2000.12.01 07:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 김도형
- 2000.12.01 06:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 권오현
- 2000.12.01 06:28
- 0 COMMENTS
- /
- 0 LIKES
-
- pallas
- •
- 2000.12.01 05:43
- 2 COMMENTS
- /
- 0 LIKES
-
최영근•2000.12.01 21:33pallas wrote: > 저기요 mdi 폼에서 자식폼을 create(self) 하잖아요....그러는데 그렇게 생성된 폼을 어...
-
김종언•2000.12.01 20:36폼은 배열의 형태로 나옵니다.... 그러니깐... child....를 찾아보세요.... pallas wrote: > 저기요 m...
-
- 안젤726
- 2000.12.01 05:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 넘몰라
- 2000.12.01 05:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은석
- 2000.12.01 05:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 이민철
- •
- 2000.12.01 04:09
- 3 COMMENTS
- /
- 0 LIKES
-
이성윤•2000.12.03 01:55및에 답변 주신 분들께서 모두 setwindowpos이용을 답변주셨는데 제가 그방법은 않된다라고 말씀드리려니...
-
컴맹...•2000.12.01 18:23요렇게 하묜.. 최상위 폼이 되구여.. SetWindowPos(Handle,HWND_TOPMOST,left,Top,Width,Height,SWP_SHOW...
-
델파이 나도초보•2000.12.01 08:33제가 비베에서 자주사용해왔기 때문에 될거에요. Setwindowpos( HWND hWnd, // handle of window ...
-
- won
- 2000.12.01 03:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피오
- 2000.12.01 03:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 향기
- •
- 2000.12.01 03:11
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 11:22제가 알기로는 어플이 한 컴퓨터에서 같은 포트로 열면 안되는 걸로 알고 있습니다. 향기 wrote: > 음...
-
- bingyou
- 2000.12.01 02:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선희
- •
- 2000.12.01 02:34
- 3 COMMENTS
- /
- 0 LIKES
-
허준•2000.12.01 02:41반갑소. 어이 허준이오. 그전에도 여러번 얘기 한것 같소만.StringGrid의 내용을 엑셀로 변환하려면 막 ...
-
허준아버지•2001.11.03 02:34허준 wrote: > 반갑소. 어이 허준이오. > 그전에도 여러번 얘기 한것 같소만.StringGrid의 내용을 엑셀로...
-
황선희•2000.12.01 17:44허준 wrote: > 반갑소. 어이 허준이오. > 그전에도 여러번 얘기 한것 같소만.StringGrid의 내용을 엑셀로...
-
- 아오시
- •
- 2000.12.01 02:34
- 2 COMMENTS
- /
- 0 LIKES
-
컴맹...•2000.12.01 18:26FetchAll은 말그대로... Table.Last; Table.First; 와 같기 때문이죠... 그럼 이만.... 아...
-
허춘•2000.12.01 15:10아오시 wrote: > 저것을 쓰면 무지 느려지는데요..왜 그러죠? > 저것을 안쓰면 레코드카운트가 제대로 안...
-
- 고유진
- •
- 2000.12.01 01:46
- 2 COMMENTS
- /
- 0 LIKES
var i : integer; ii : String; begin For i:= 1 to 5 do ii := IntToStr(i); begin With FindComponent('QRLG'+ii) as TQRLabel do Caption := k(i); // 밑에 문장에 문제가 있어요......// // QRLabel값만 찾아서 계산만 해주면 되는데....-
허준•2000.12.01 03:12반갑소 어이! 허준이라 하오. 처리 방식이 잘못 된것같소. With FindComponent('QRLG'+ii) as TQRLabel d...
-
고유진•2000.12.01 17:52허준 wrote: > 반갑소 어이! 허준이라 하오. > 처리 방식이 잘못 된것같소. > With FindComponent('QRLG...
-
- neo
- •
- 2000.12.01 01:28
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹...•2000.12.01 18:29Mouse Down event에 TShiftState는 Set type입니다.. 따라서 사용하실때에는 Shift=[ssShift] 이렇게 ...
-
- 물음표
- •
- 2000.12.01 01:04
- 2 COMMENTS
- /
- 0 LIKES
-
허준•2000.12.01 03:20반갑소. 어이! 허준이라 하오 델파이 IDE에서는 1024 Column을 넘어 갈수가 없소. 물론 편집을 했다는 것...
-
물음표•2000.12.01 11:15허준 wrote: > 반갑소. 어이! 허준이라 하오 > 델파이 IDE에서는 1024 Column을 넘어 갈수가 없소. > 물...
-
- 이홍락
- 2000.12.01 00:52
- 0 COMMENTS
- /
- 0 LIKES
-
- jonghoon
- •
- 2000.12.01 00:35
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2000.12.01 00:50sleep(1000) 1초지연... jonghoon wrote: > 제가 ole로 다른 프로그램을 이용하고 있는데 > 제가 요청...
-
- 철
- •
- 2000.12.01 00:30
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2000.12.01 00:58ALTER TABLE 테이블명 ADD CONSTRAINT 프라이머리키이름 PRIMARY KEY (프라이머리키로정할필드명) ...
처리 방식이 잘못 된것같소.
With FindComponent('QRLG'+ii) as TQRLabel do Caption := k(i);
위와 같이 하면 에러날 확률이 있소.
먼저 as용법을 쓰려먼 먼저 is로 Typ Checking을해야하오.
var
lni : Byte;
begin
for lni : 0 to Self.ComponentCount - 1 do
begin
if (Components[lni] is TQRLabel) Then // is로 먼저 Type Check
if (Components[lni] As TQRLabe).Caption := 여기에 값넣기 // Type Casting
end;
end;
부디 도움이 되었으면 하오.
어허 탕약 쫄겠네...