Q&A
- 순차적인 번호를 가진 라벨에 동일한 값을 출력하기
아주 아주 만은 갯수의 label상자가 있을 경우 name속성이 1,2,3,4,5,6,7,8...순으로 계속 됨니다.
그럼 이 레밸 상자에 동일한 값을 출력 하려면 무식한 방법으라면 상자의 갯수만큼 라인을 추가 하면 되지요... 그럼 좀 쉬운 방법은 없나요?
for Loop 같은걸 쓰고 싶은대 어쩌야 지 되는지?
그럼 이 레밸 상자에 동일한 값을 출력 하려면 무식한 방법으라면 상자의 갯수만큼 라인을 추가 하면 되지요... 그럼 좀 쉬운 방법은 없나요?
for Loop 같은걸 쓰고 싶은대 어쩌야 지 되는지?
3
COMMENTS
-
-
안녕하세요. 최용일입니다.
FindComponent메소드나 Controls배열을 이용하세요...
procedure TForm1.Button1Click(Sender: TObject);
var
LabelX: TLabel;
I: Integer;
begin
for I := 1 to 20 do // 20 = 순차적인 라벨의 갯수
begin
LabelX := TLabel( FindComponent('Label' + IntToStr(I)) );
LabelX.Caption := '동일한 값1';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
begin
if Controls[I] is TLabel then
TLabel( Controls[I] ).Caption := '동일한 값2';
end;
end;
^^ 항상 즐코하세요...
-
TLabel(Sender).Caption := '111'
이런씩으로 하면 값이 들어갑니다.
여러개를 동시에 하는것은 조금 수정하면 될듯 싶네요
(NOTICE) You must be logged in to comment on this post.
-
- 푸른하늘
- •
- 2002.02.06 21:10
- 4 COMMENTS
- /
- 0 LIKES
-
장지용•2002.02.06 22:59function DayOfWeek(Date: TDateTime): Integer; 일요일 = 1 월요일 = 2 . . .
-
푸른하늘•2002.02.07 23:37먼저 답변에 감사드립니다. ^^ 근데..DayOfWeek를 어떻게 사용하는가요? --; 이 함수를 이용해 월요일일...
-
장지용•2002.02.19 00:30case DayOfWeek(Now) of 1 : ShowMessage('일요일입니다.'); &nb...
-
장명선•2002.02.06 21:19DB의 날짜 및 요일을 가져오면 쉽게 해결할수 있을겁니다. 꼭 DB만이 아니고 시스템 요일을 가져와도 되겠...
-
- ssoya
- •
- 2002.02.06 20:50
- 3 COMMENTS
- /
- 0 LIKES
-
장지용•2002.02.06 21:14"Query1.Next;" 로 바꾸면 안 되나요?
-
장명선•2002.02.06 21:07Next를 쓸때.....Query1.Next로 써보세요 제가 보기엔 그것이 문제인듯 싶네요 즐코하세요~~~
-
강두헌•2002.02.06 21:03이름이 좀 헷갈려서 정확한건지는 모르겠지만, Next; 를 Query1.Next; 로 바꾸시면 될거 같네요.. 도...
-
- ssoya
- •
- 2002.02.06 20:47
- 2 COMMENTS
- /
- 0 LIKES
-
보들레르•2002.02.06 23:00님의 코드를 한글로 쓰면 이렇게 됩니다. if 조건 then //만약에 조건이맞으면 처리 else if 조건 then... -
강두헌•2002.02.06 20:57먼저 조건에 맞는 경우를 실행하고 빠져 나갑니다. 이건 서점가서 아무 기본서적 꺼내들고 10분만 읽으면 ...
-
- 김종석
- •
- 2002.02.06 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.06 22:15안녕하세요. 최용일입니다. test가 MSG의 포인터네요... 그냥 형변환하세요... VC++ 처럼... var &n...
-
- 이규황
- •
- 2002.02.06 20:34
- 7 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.06 21:03
-
Tk•2002.02.06 21:10
-
이규황•2002.02.06 21:09
-
장지용•2002.02.06 21:21
-
장명선•2002.02.06 21:23
-
장지용•2002.02.06 22:19
-
이규황•2002.02.06 21:29
-
- 양충규
- 2002.02.06 20:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정은
- 2002.02.06 20:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸른하늘
- •
- 2002.02.06 19:13
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2002.02.15 02:01답변이 될런지 모르겠지만, 일반적으로 SMTP 서버를 공개해 놓지 않습니다. 스패머의 좋은 표적이 때문입...
-
- 신호
- •
- 2002.02.06 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.06 22:25안녕하세요. 최용일입니다. 그렇게 하실려면 그릴려구 하는 것들 모두를 다 객체화 해서 만드셔야 합니...
-
- 꾸꾸오빠
- •
- 2002.02.06 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
서정길•2002.02.06 18:47쩝... SQL.Add('values (:Tbl_PcName,:Tbl_UserName,:Tbl_LoginName,:Tbl_WorkGroup,:Tbl_MyIPAdress, '...
-
- 임광운
- •
- 2002.02.06 11:44
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2002.02.06 20:31찾으시는 답변이 되었으면 좋겠네요.. var i, n: Integer; fn: file; &...
-
임광운•2002.02.06 22:20답변 정말 감사드립니다. 어여 공부해서^^ 저도 다른분들과 많이 나누고 싶네요. 그럼 좋은 하루 되세요....
-
- 이화
- •
- 2002.02.06 09:15
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.06 22:19아래에 답변해드렸는데......
-
- 조성택
- •
- 2002.02.06 09:02
- 1 COMMENTS
- /
- 0 LIKES
-
김용덕•2002.02.06 19:34안녕하세염~ 차이점은 바로 실행하는 주최죠~ Thread의 Execute에서 MyFunc를 호출하면 해당 Thread에...
-
- 푸른하늘
- •
- 2002.02.06 07:31
- 1 COMMENTS
- /
- 0 LIKES
-
임현창•2002.02.06 08:31QuickRep1.ShowProgress := False; 쩝...
-
- 고예형
- •
- 2002.02.06 05:25
- 2 COMMENTS
- /
- 0 LIKES
-
성더기•2002.02.06 05:51Rowselect 옵션에 체크해두심 안되나여? 질문 내용이 이게 아닌가?..후다닥..=3=3
-
정계훈•2002.02.06 05:51안녕하세요. 아래와 같이 하심 선택된 ROW의 색깔을 바꿀수 있습니다. 그럼 즐거운 코딩이 되시길... ...
-
- 성더기
- •
- 2002.02.06 05:15
- 4 COMMENTS
- /
- 0 LIKES
-
gudwhrla•2002.02.06 05:35큰 데이타를 저장시에는 바운드를 사용하셔야 합니다. (:code, :vtext) Sql.add()에 직접 널수 있는 데이...
-
성더기•2002.02.06 05:50지송스럽게두 저장시에는 아무 문제가 없었슴다.. 데이터는 똑바로 저장이 되더군요.. 단지 쿼리를 날려...
-
gudwhrla•2002.02.06 07:19로드시에 데이타를 변형해서 불러오니까 다 가져 오내여 select code , Convert...
-
성더기•2002.02.07 20:20그런 방법이 있었군요... 전 걍 타입을 몽땅 Text로 바꿨습니다. text로 사용을 하니깐 문제가 없더군욤....
-
- .
- •
- 2002.02.06 02:49
- 3 COMMENTS
- /
- 0 LIKES
아주 아주 만은 갯수의 label상자가 있을 경우 name속성이 1,2,3,4,5,6,7,8...순으로 계속 됨니다. 그럼 이 레밸 상자에 동일한 값을 출력 하려면 무식한 방법으라면 상자의 갯수만큼 라인을 추가 하면 되지요... 그럼 좀 쉬운 방법은 없...-
장지용•2002.02.06 03:52"FindComponent" 라는 놈을 쓰면 될것 같습니다. for intLoop := 1 to 10 do ...
-
최용일•2002.02.06 03:49안녕하세요. 최용일입니다. FindComponent메소드나 Controls배열을 이용하세요... procedure TForm1....
-
장명선•2002.02.06 02:55TLabel(Sender).Caption := '111' 이런씩으로 하면 값이 들어갑니다. 여러개를 동시에 하는것은 조금 ...
-
- 이화
- •
- 2002.02.06 02:43
- 5 COMMENTS
- /
- 0 LIKES
-
최영근•2002.02.06 05:39Locate 명령도 괜찮습니다. Query1.locate('FieldName', 필드값, [loPartialKey]); // ('키...
-
이화•2002.02.06 08:49답글 감사 합니다.. 앞으로 많은 조언 부탁 드릴께요... ㅋㅋㅋ
-
장지용•2002.02.06 03:28MoveBy : function(Distance: Integer): Integer; 이걸 사용하심 안 될까요.
-
이화•2002.02.06 08:51델파이를 공부 하고 있는데.. 아래와 같은 컴포넌트 레퍼런스 가이드 없나요.. 제가 보기에 시중에 ...
-
최용일•2002.02.06 10:02안녕하세요. 최용일입니다. 17000개 정도면 리스트뷰에 그릴때 락을 건다고 해도 데이터를 리스트뷰에 ...
-
- 김재오
- •
- 2002.02.06 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
gudwhrla•2002.02.06 02:35Name := Listview1.Items[0].SubItems[0]; Age :=Listview1.Items[0].SubItems[1];
-
-
조규춘•2002.02.06 15:31아래와 같은 방법으로 하셔도 될거 같군요.. function SearchAndReplace(sSrc, sLookFor, sReplac...
-
장명선•2002.02.06 02:33번거러워도 숫자로 변환하여 하시는게 좋을듯 싶네요
-
"FindComponent" 라는 놈을 쓰면 될것 같습니다.
for intLoop := 1 to 10 do
TLabel(Self.FindComponent('Label' + IntToStr(intLoop))).Caption := 'Test';