Q&A
- 콤포넌트이름으로 루프를 돌릴수 없을까요? 제발.....
폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요.
여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데,
이건 너무 합니다.
이름은 규칙적으로 지정했습니다.
a011 a012 .......... a017
a021 a022 .......... a017
......
...
a201 a202 .......... a207
로 배치되 있습니다.
이걸 루프돌면서 텍스트를 넣을수 없을까요..
비슷한 의견이라도 꼭 부탁드리겠습니다.
감사합니다.
여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데,
이건 너무 합니다.
이름은 규칙적으로 지정했습니다.
a011 a012 .......... a017
a021 a022 .......... a017
......
...
a201 a202 .......... a207
로 배치되 있습니다.
이걸 루프돌면서 텍스트를 넣을수 없을까요..
비슷한 의견이라도 꼭 부탁드리겠습니다.
감사합니다.
4
COMMENTS
-
-
진현주 wrote:
> 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요.
>
> 여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데,
> 이건 너무 합니다.
>
> 이름은 규칙적으로 지정했습니다.
>
> a011 a012 .......... a017
> a021 a022 .......... a017
> ......
> ...
> a201 a202 .......... a207
>
> 로 배치되 있습니다.
>
> 이걸 루프돌면서 텍스트를 넣을수 없을까요..
> 비슷한 의견이라도 꼭 부탁드리겠습니다.
>
> 감사합니다.
>
>
>
>
>
1. 폼에 텍스트를 넣어야 할 에티(?)터박스만 있을때
for i:= 0 to ComponentCount - 1 do
begin
if (Components[i] is TEdit) then
TEdit(Components[i]).Text := '나는나' + inttostr(i);
end;
2. 변경할 것도 있고 그냥 놔 둘 것도 있을 때
변경할 에티(?)터 박스의 tag 에 일정한 값을 넣는다.
그리고..
for i:= 0 to ComponentCount - 1 do
begin
if (Components[i] is TEdit) then
if TEdit(Components[i]).tag = 99 then
TEdit(Components[i]).Text := '나는나' + inttostr(i);
end;
-
For j := 1 to 15 do begin
TEdit(FindComponent('A' + IntToStr(j))).Text :='테스트';
end;
이와 같은 형식으로 하면 됩니다.
진현주 wrote:
> 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요.
>
> 여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데,
> 이건 너무 합니다.
>
> 이름은 규칙적으로 지정했습니다.
>
> a011 a012 .......... a017
> a021 a022 .......... a017
> ......
> ...
> a201 a202 .......... a207
>
> 로 배치되 있습니다.
>
> 이걸 루프돌면서 텍스트를 넣을수 없을까요..
> 비슷한 의견이라도 꼭 부탁드리겠습니다.
>
> 감사합니다.
>
>
>
>
>
-
for i := 0 to form1.ControlCount - 1 do
begin
if (form1.controls[i] is tedit) and
(copy(form1.controls[i].Name,1,1) = 'A') then
begin
TEdit(form1.controls[i]).text := '1';
end
else continue;
end;
(NOTICE) You must be logged in to comment on this post.
-
- 꼴통
- •
- 2000.12.15 19:46
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.12.18 03:17안녕하세요. 최용일입니다. TListView의 CustomSort메소드의 파라메터로 들어가는 함수는 콜백함수입니...
-
꼴통•2000.12.18 16:35.
-
- 초보
- 2000.12.15 19:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정규
- •
- 2000.12.15 19:11
- 4 COMMENTS
- /
- 0 LIKES
-
오병주•2001.07.05 20:27김정규 wrote: > with query1 do > begin > close; > sql.clear; > s_sql :='select c...
-
김정규•2000.12.15 19:13with query1 do begin close; sql.clear; s_sql :='select count(m_sabun) aa fro...
-
이성주•2000.12.16 21:06"00" 에서 에러가 나신다고 하셨지요.. 혹시... '00' 이렇게 해야 되는게 아닐까요.. 델파이에서 오라클...
-
방경주•2000.12.15 22:28흠...and and가 겹쳐 있네여...이게 아닌가? ^^;; 저 같음...이렇게 해보셈...소스는 잘 정리 된게 에...
-
- 초보
- •
- 2000.12.15 18:38
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.12.15 18:50안녕하세요. Application.Exename 은 현재 프로그램이 실행되고 있는 패스를 말합니다. 만약 님의 프로그...
-
초보•2000.12.15 18:53감사합니다.....꾸벅
-
- 기타맨
- 2000.12.15 18:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광섭
- •
- 2000.12.15 18:08
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2000.12.15 18:41김광섭 wrote: > 델파이를 이용하면서 여태 무심코 지나쳤던 현상이 있어서 이렇게 질문합니다. > 디비그...
-
- 밍시
- 2000.12.15 17:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.12.15 12:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김오성
- •
- 2000.12.15 09:35
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.15 10:17wave파일은 일단 8000Hz 16bit mono로 샘플링해주세요. 그리고 설치된 Voice Modem의 DeviceID를 얻은 다...
-
- 초보자
- •
- 2000.12.15 09:06
- 1 COMMENTS
- /
- 0 LIKES
-
프지초보•2000.12.15 20:18저도 초보라 잘 모르는데.. 질문이 너무 막연하군요.. index나 filter를 이용하세요 그리고 데이타 베이...
-
- 아기코알라
- •
- 2000.12.15 07:53
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2000.12.15 18:20아기코알라 wrote: > > 안녕하세요 고수님들... > 여러고수님들의 도움으로 조그마한 프로그램을 마...
-
+^-_-^+•2000.12.15 20:36김광섭 wrote: > 아기코알라 wrote: > > > > 안녕하세요 고수님들... > > 여러고수님들의 도움으로 ...
-
- 진현주
- •
- 2000.12.15 06:16
- 4 COMMENTS
- /
- 0 LIKES
폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요. 여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데, 이건 너무 합니다. 이름은 규칙적으로 지정했습니다. a011 a012 .......... a017 a021 a022 .......... a017 ...... ....-
정성훈•2000.12.15 23:12안녕하세요. 저도 얼마전에 그런일이 있어서 여기서 돔을 받았습니당. 아마 이 부분도 참고가 되셨음 하...
-
김동규•2000.12.15 06:33진현주 wrote: > 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요. > > 여기에 텍스트를 넣으려고 ...
-
김상호•2000.12.15 06:32For j := 1 to 15 do begin TEdit(FindComponent('A' + IntToStr(j))).Text :='테스트'; ...
-
권경미•2000.12.15 18:33for i := 0 to form1.ControlCount - 1 do begin if (form1.controls[i] is tedit) and ...
-
- 델초보..
- •
- 2000.12.15 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•2000.12.15 04:59DbfFiles: string; if FileExists(DbfFiles) then 이와 같은 명령을 사용해서 화일유무를 판...
-
- 홍진혁
- •
- 2000.12.15 03:25
- 2 COMMENTS
- /
- 0 LIKES
-
김상호•2000.12.15 05:12ExitWindowsEx(EWX_SHUTDOWN,0); // 종료 ExitWindowsEx(EWX_REBOOT,0) ; // 재부팅 ...
-
홍진혁•2000.12.15 08:34김상호님께서 답변해주신 ExitWindowsEx()함수는 Windows 95/98에서만 사용가능한 함수입니다. 그리고, 제...
-
- 초보자
- •
- 2000.12.15 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2000.12.15 05:29초보자 wrote: > 안녕하세요. > > Delphi 4.0에 있는 인스톨쉴드로 설치 프로그램 작성시 궁금한 사항...
-
- 초보
- 2000.12.15 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 괴물초쟁이
- •
- 2000.12.15 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.12.15 03:05Open이 잘못된건가요? 전 파라미터를 쓰는걸 참 좋아하는데 이유는 코딩이 보기 편해서입니다. ^^ 그리...
-
-
강인규•2000.12.15 03:58이게 답변이 될까요? var i : integer; begin i := 1; (FindComponent('edit'+IntToStr(i)) a...
-
김상국•2000.12.18 22:43님의 도움으로 인하여 400라인을 40라인으로 줄였여요.. 감사합니다. ^*^ 좋은 한 주 되세요... ...
-
-
- 델피언
- 2000.12.15 02:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이공주
- •
- 2000.12.15 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
고대서창•2000.12.15 02:56mediaplayer 컴포넌트를 사용하세요. 파이공주 wrote: > .avi 화일로된 동영상을 보구 싶은데요.. 어...
저도 얼마전에 그런일이 있어서 여기서 돔을 받았습니당.
아마 이 부분도 참고가 되셨음 하네요.
panel1 안에 있는 것들만 제어할 경우입니다.
var
i : Integer;
begin
for i := 0 to ComponentCount-1 do
begin
if ( Components[i] is TEdit ) then
begin
if TEdit(Components[i]).Parent = Panel1 then TEdit(Components[i]).Clear;
end; //if
end; //for
end;
진현주 wrote:
> 폼에 에티터박스가 20 * 7 개(무려 140개)가 있어요.
>
> 여기에 텍스트를 넣으려고 하는데 140줄이나 코딩을 해야하는데,
> 이건 너무 합니다.
>
> 이름은 규칙적으로 지정했습니다.
>
> a011 a012 .......... a017
> a021 a022 .......... a017
> ......
> ...
> a201 a202 .......... a207
>
> 로 배치되 있습니다.
>
> 이걸 루프돌면서 텍스트를 넣을수 없을까요..
> 비슷한 의견이라도 꼭 부탁드리겠습니다.
>
> 감사합니다.
>
>
>
>
>