Q&A
- 로마숫자를 표기하고싶은데요...
숫자를 로마숫자로 표시하고 싶은데 방법을 잘 모르겠네요.
예를 들어 사용자가 1을 edit에 입력하면 label에 Ⅰ로,2를 입력하면 label에 Ⅱ로..
5이면 Ⅴ로...초보라 어렵네요.
도움 부탁드립니다.^^;;
예를 들어 사용자가 1을 edit에 입력하면 label에 Ⅰ로,2를 입력하면 label에 Ⅱ로..
5이면 Ⅴ로...초보라 어렵네요.
도움 부탁드립니다.^^;;
2
COMMENTS
-
-
답변 감사드리고요..
^^
저는 혹 델파이에서 함수로 지원하나 해서요..
코드값이 있는줄 알고요.
어쨌든 감사합니다.
건 wrote:
> Edit1Change Event에 다음과 같이 해주면 될것 같네요
>
> procedure TForm1.Edit1Change(Sender: TObject);
> var
> i,j : integer;
> begin
> Label1.Caption := '';
> if Edit1.Text = '' then Exit;
> j := length(Edit1.Text);
> for i := 1 to j do
> begin
> case StrToInt(Copy(Edit1.Text,i,1)) of
> 1 : Label1.Caption := Label1.Caption + 'Ⅰ';
> 2 : Label1.Caption := Label1.Caption + 'Ⅱ';
> 3 : Label1.Caption := Label1.Caption + 'Ⅲ';
> 4 : Label1.Caption := Label1.Caption + 'Ⅳ';
> 5 : Label1.Caption := Label1.Caption + 'Ⅴ';
> 6 : Label1.Caption := Label1.Caption + 'Ⅵ';
> 7 : Label1.Caption := Label1.Caption + 'Ⅶ';
> 8 : Label1.Caption := Label1.Caption + 'Ⅷ';
> 9 : Label1.Caption := Label1.Caption + 'Ⅸ';
> end; //Case
> end; // for
> end;
>
> 예) 25 ==> ⅡⅤ
>
> ------------------------------
>
> > 숫자를 로마숫자로 표시하고 싶은데 방법을 잘 모르겠네요.
> > 예를 들어 사용자가 1을 edit에 입력하면 label에 Ⅰ로,2를 입력하면 label에 Ⅱ로..
> > 5이면 Ⅴ로...초보라 어렵네요.
> > 도움 부탁드립니다.^^;;
(NOTICE) You must be logged in to comment on this post.
-
- 초보자
- 2001.06.30 04:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박태준
- 2001.06.30 04:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 유한주
- 2001.06.30 04:04
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 바보
- 2001.06.30 03:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.06.30 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.06.30 04:20짱아 wrote: > 아래와 같은 에러가 납니다... > 근데 posttable에는 LAYER_SIMBOL이라는 필드가 정말정...
-
- 초보탈출
- •
- 2001.06.30 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
참이슬•2001.06.30 04:05uses 절에 ShellApi를 추가해요~ 초보탈출 wrote: > api함수로 파일의 정보를 알아보려구 하는 중에 아...
-
- 궁금이
- •
- 2001.06.30 02:49
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.06.30 09:03원래 웹브라우저라는 놈이 생겨 먹은게 file://로 시작하면 실행결과(stdout)를 화면에 보여주지 않고 화...
-
- 델초보
- 2001.06.30 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 유동기
- 2001.06.30 00:55
- 0 COMMENTS
- /
- 0 LIKES
-
- KKK
- 2001.06.30 00:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 빈자의 고통
- 2001.06.30 00:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 이준
- 2001.06.30 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 써니
- 2001.06.29 23:39
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- •
- 2001.06.29 23:36
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2001.06.30 17:50xxx wrote: > Variable 'ip_qty' might not have been initialized > 에러가 나는 이유좀 알려주세요... ...
-
- KKK
- •
- 2001.06.29 23:35
- 2 COMMENTS
- /
- 0 LIKES
-
방문현•2001.06.30 17:55KKK wrote: > > imgedit 컴포넌트 사용시 이미지가 남아 있어 문제가 되고 있습니다. > > 만약 1.tif...
-
KKK•2001.07.05 07:43이래와 같이 해 보았는데 안되요... 답변 정말 정말 감사합니다만 델파이에 image 컴포넌트가 아니라 A...
-
- 초보델피언
- 2001.06.29 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 하나
- •
- 2001.06.29 23:17
- 2 COMMENTS
- /
- 0 LIKES
숫자를 로마숫자로 표시하고 싶은데 방법을 잘 모르겠네요. 예를 들어 사용자가 1을 edit에 입력하면 label에 Ⅰ로,2를 입력하면 label에 Ⅱ로.. 5이면 Ⅴ로...초보라 어렵네요. 도움 부탁드립니다.^^;;-
건•2001.06.30 01:24Edit1Change Event에 다음과 같이 해주면 될것 같네요 procedure TForm1.Edit1Change(Sender: TObject);...
-
하나•2001.06.30 03:06답변 감사드리고요.. ^^ 저는 혹 델파이에서 함수로 지원하나 해서요.. 코드값이 있는줄 알고요. 어쨌...
-
- Rita
- 2001.06.29 22:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보님
- 2001.06.29 22:35
- 0 COMMENTS
- /
- 0 LIKES
procedure TForm1.Edit1Change(Sender: TObject);
var
i,j : integer;
begin
Label1.Caption := '';
if Edit1.Text = '' then Exit;
j := length(Edit1.Text);
for i := 1 to j do
begin
case StrToInt(Copy(Edit1.Text,i,1)) of
1 : Label1.Caption := Label1.Caption + 'Ⅰ';
2 : Label1.Caption := Label1.Caption + 'Ⅱ';
3 : Label1.Caption := Label1.Caption + 'Ⅲ';
4 : Label1.Caption := Label1.Caption + 'Ⅳ';
5 : Label1.Caption := Label1.Caption + 'Ⅴ';
6 : Label1.Caption := Label1.Caption + 'Ⅵ';
7 : Label1.Caption := Label1.Caption + 'Ⅶ';
8 : Label1.Caption := Label1.Caption + 'Ⅷ';
9 : Label1.Caption := Label1.Caption + 'Ⅸ';
end; //Case
end; // for
end;
예) 25 ==> ⅡⅤ
------------------------------
> 숫자를 로마숫자로 표시하고 싶은데 방법을 잘 모르겠네요.
> 예를 들어 사용자가 1을 edit에 입력하면 label에 Ⅰ로,2를 입력하면 label에 Ⅱ로..
> 5이면 Ⅴ로...초보라 어렵네요.
> 도움 부탁드립니다.^^;;