Q&A
- 스트링번호의 증가문제
반갑습니다.
제목과 같이 스트링에서의 번호를 증가하고 싶습니다.
현재 사용한 소스는 아래와 같구요..
var
i : integer;
t : tcomponent;
begin
with frm30.q_sins do
begin
First;
for i := 0 to RecordCount - 1 do
begin
t := frm32.findComponent('QRLabel95'+ inttostr(i));
TQRLabel(t).caption := FieldByName('외국어명').asstring;
next;
end;
end;
end;
제가 원하는 결과는 QRLable95, QRLable96, QRLable97..... 이렇게 스트링 뒤의 숫자가 증가하게 만들고 싶습니다.
물론 각 QRLable의 caption에 데이타를 넣을거구요..
위의 소스대로 하면 QRLable951, QRLable952... 이렇게 나오지 않을까요?
어떻게 하면 될까요?
제목과 같이 스트링에서의 번호를 증가하고 싶습니다.
현재 사용한 소스는 아래와 같구요..
var
i : integer;
t : tcomponent;
begin
with frm30.q_sins do
begin
First;
for i := 0 to RecordCount - 1 do
begin
t := frm32.findComponent('QRLabel95'+ inttostr(i));
TQRLabel(t).caption := FieldByName('외국어명').asstring;
next;
end;
end;
end;
제가 원하는 결과는 QRLable95, QRLable96, QRLable97..... 이렇게 스트링 뒤의 숫자가 증가하게 만들고 싶습니다.
물론 각 QRLable의 caption에 데이타를 넣을거구요..
위의 소스대로 하면 QRLable951, QRLable952... 이렇게 나오지 않을까요?
어떻게 하면 될까요?
2
COMMENTS
-
-
흐미~~
조금만 더 생각하시지..
var
i : integer;
t : tcomponent;
begin
with frm30.q_sins do
begin
First;
for i := 0 to RecordCount - 1 do
begin
//↓↓아래같이 바꾸시면 될꺼 같은데..
t := frm32.findComponent('QRLabel' + inttostr(95+i));
TQRLabel(t).caption := FieldByName('외국어명').asstring;
next;
end;
end;
end;
NanHee wrote:
> 반갑습니다.
> 제목과 같이 스트링에서의 번호를 증가하고 싶습니다.
> 현재 사용한 소스는 아래와 같구요..
>
> var
> i : integer;
> t : tcomponent;
> begin
> with frm30.q_sins do
> begin
> First;
> for i := 0 to RecordCount - 1 do
> begin
> t := frm32.findComponent('QRLabel95'+ inttostr(i));
> TQRLabel(t).caption := FieldByName('외국어명').asstring;
> next;
> end;
> end;
> end;
>
> 제가 원하는 결과는 QRLable95, QRLable96, QRLable97..... 이렇게 스트링 뒤의 숫자가 증가하게 만들고 싶습니다.
>
> 물론 각 QRLable의 caption에 데이타를 넣을거구요..
>
> 위의 소스대로 하면 QRLable951, QRLable952... 이렇게 나오지 않을까요?
>
> 어떻게 하면 될까요?
(NOTICE) You must be logged in to comment on this post.
-
- 델 초보운전
- •
- 2000.09.21 08:33
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2000.09.21 08:51TPopupMenu 컴포넌트를 쓰세여... 델 초보운전 wrote: > 트리뷰를 사용해서 이름을 나열하고 있습니다....
-
-
이재식•2000.09.21 09:56안녕하세요? 여기에 자세한 질문이 있었네요.. ^^ 왜 이런 경우가 발생했는지에대해서는 이해가 좀 ...
-
-
- 김경태
- 2000.09.21 05:11
- 0 COMMENTS
- /
- 0 LIKES
-
- [델파이]
- 2000.09.21 04:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 한재성
- 2000.09.21 03:55
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2000.09.21 08:47안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 아래와 같이 하세요......
-
초보자•2000.09.21 18:30최용일님 감사합니다. 16진수로 인식하기 위해서는 입력받은 문자 앞에 '$'를 사용하면 된다는 말씀이시죠...
-
-
- 히지니
- 2000.09.21 03:31
- 0 COMMENTS
- /
- 0 LIKES
-
- hobakpa
- 2000.09.21 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 박병희
- 2000.09.21 03:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광수
- 2000.09.21 03:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 권대길
- •
- 2000.09.21 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
linuxwiz•2000.09.21 22:06권대길 wrote: > 안녕하십니까? > 제가 MS-SQL DataBase를 이용하여 2티어 프로그램을 작성하고 있는데요...
-
- hnc
- •
- 2000.09.21 02:42
- 2 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.21 09:34DataTime Type 으로 가져 오기 var MyTime : TDateTime; begin MyTime := Now; // 현재 날자와 ...
-
kylix•2000.09.21 08:49ㅇㅇ hnc wrote: > ㅁㅁ
-
- 안젤726
- 2000.09.21 02:26
- 0 COMMENTS
- /
- 0 LIKES
-
- NanHee
- •
- 2000.09.21 02:17
- 2 COMMENTS
- /
- 0 LIKES
반갑습니다. 제목과 같이 스트링에서의 번호를 증가하고 싶습니다. 현재 사용한 소스는 아래와 같구요.. var i : integer; t : tcomponent; begin with frm30.q_sins do begin First; for i := 0 to RecordCount - 1 do begin t := frm32....-
돌머리•2000.09.21 20:08안녕하세요 김동원입니다. var i, tempcnt : integer; t : tcomponent; begin with frm30.q_s...
-
최석기•2000.09.21 02:23흐미~~ 조금만 더 생각하시지.. var i : integer; t : tcomponent; begin with frm30.q_sins...
-
- 박일용
- 2000.09.21 01:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 구자균
- •
- 2000.09.21 01:46
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.21 09:46// PC의 날자와 시간을 변경한다. // sDate : 년월일 8자리 // sTime : 시분초 6자리 입력 procedure TF...
-
- 초보델피언
- 2000.09.21 01:43
- 0 COMMENTS
- /
- 0 LIKES
-
- pmyun
- •
- 2000.09.21 01:34
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.21 09:55직접 만든 프로그램 이라면... Form 의 클래스를 아시겠죠? 그럼 이렇게 하세요... var sWindowN...
-
- 델초보
- 2000.09.21 01:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 호야
- •
- 2000.09.21 01:27
- 1 COMMENTS
- /
- 0 LIKES
-
김경태•2000.09.21 04:52아래소스는 차트영역을 캡춰해서 저장 하는 거예요... Tchart에서 제공하는 메소드로 할 수있는방법을 원...
var
i, tempcnt : integer;
t : tcomponent;
begin
with frm30.q_sins do
begin
First;
tempcnt := 95//시작번호
for i := 0 to RecordCount - 1 do
begin
t := frm32.findComponent(Format('QRLabel%d', [tempcnt+i]);
if t <> nil then
TQRLabel(t).caption := FieldByName('외국어명').asstring;
else
break;
next;
end;
end;
end;
NanHee wrote:
> 반갑습니다.
> 제목과 같이 스트링에서의 번호를 증가하고 싶습니다.
> 현재 사용한 소스는 아래와 같구요..
>
> var
> i : integer;
> t : tcomponent;
> begin
> with frm30.q_sins do
> begin
> First;
> for i := 0 to RecordCount - 1 do
> begin
> t := frm32.findComponent('QRLabel95'+ inttostr(i));
> TQRLabel(t).caption := FieldByName('외국어명').asstring;
> next;
> end;
> end;
> end;
>
> 제가 원하는 결과는 QRLable95, QRLable96, QRLable97..... 이렇게 스트링 뒤의 숫자가 증가하게 만들고 싶습니다.
>
> 물론 각 QRLable의 caption에 데이타를 넣을거구요..
>
> 위의 소스대로 하면 QRLable951, QRLable952... 이렇게 나오지 않을까요?
>
> 어떻게 하면 될까요?