Q&A
- 소스좀 봐주세요....급합니다.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i,j: Integer;
indexCd : Integer;
tempCd : String;
begin
indexCd := ord(Key) - 96;
for i := 0 to 4 do
for j := 0 to 9 do
if ( str_nm[i,j] = Key ) then
begin
if ((i*10 + j) >= 0) and ((i*10 + j) <= 9) then
tempCd := '0' + IntToStr(i*10 + j)
else
tempCd := IntToStr(i*10 + j);
TImage(FindComponent('image' + tempCd)).Picture.LoadFromFile('image'+ intToSTr(indexCd) + '.bmp');
end;
end;
을 inputcilck으로 바꾸려 합니다.
그대로 갔다쓰면 ord(key)가 문제가 되는데. 그것을 어떻게 바꿔줘야 하나요?
고수님들 부탁드립니다.
var
i,j: Integer;
indexCd : Integer;
tempCd : String;
begin
indexCd := ord(Key) - 96;
for i := 0 to 4 do
for j := 0 to 9 do
if ( str_nm[i,j] = Key ) then
begin
if ((i*10 + j) >= 0) and ((i*10 + j) <= 9) then
tempCd := '0' + IntToStr(i*10 + j)
else
tempCd := IntToStr(i*10 + j);
TImage(FindComponent('image' + tempCd)).Picture.LoadFromFile('image'+ intToSTr(indexCd) + '.bmp');
end;
end;
을 inputcilck으로 바꾸려 합니다.
그대로 갔다쓰면 ord(key)가 문제가 되는데. 그것을 어떻게 바꿔줘야 하나요?
고수님들 부탁드립니다.
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 바보감자
- •
- 2001.01.27 22:27
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.27 23:06바보감자 wrote: > 안녕하세여 최고의 멍텅구리 바보입니당 꾸벅.. > 제가 질문 하나 올리겠습니다... >... -
바보감자•2001.01.28 00:24김광섭 wrote: > 바보감자 wrote: > > 안녕하세여 최고의 멍텅구리 바보입니당 꾸벅.. > > 제가 질문 하...
-
- 김광철
- •
- 2001.01.27 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.01.27 21:47김광철 wrote: > > 화면상에서 Mouse 클릭만으로 특정 Caption에 글자가 입력되는 효과를 > > 낼수 ...
-
- 파이파이
- •
- 2001.01.27 21:25
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.27 23:15파이파이 wrote: > 질문> 스피드버튼의 모양을 삼각형 또는 마름모형태로 바꿀수 없나요... > 그렇게...
-
- ZEUS
- 2001.01.27 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 최재봉
- 2001.01.27 20:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태성
- •
- 2001.01.27 20:17
- 2 COMMENTS
- /
- 0 LIKES
-
기상원•2001.01.28 03:50www.myecrc.com 으로 가서 질문해 보세요..... 이태성 wrote: > 안녕하세요 > 프린터 포트를 이용하...
-
바람개비•2001.01.28 01:07그건 프린터포트든 시리얼포트든 특정신호를 출력하면 인식할수 있게끔 외부의 장치가 있어야지요. 무작...
-
- tommy28
- •
- 2001.01.27 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
이만준•2001.01.27 21:59안녕하세요... 아래 함수를 이용해보세요... 이유는 잘 기억이 안나는데... WinExec 함수를 언제부...
-
- 매일웃자
- •
- 2001.01.27 20:47
- 6 COMMENTS
- /
- 0 LIKES
-
매일웃자•2001.01.29 19:16매일웃자 wrote: > 질문이 좀 이상했나봅니다. > 아무도 답을 안해주셔서 이렇게 다시한번 질문 올립니다...
-
몰러•2001.01.28 06:19파일로부터 레코드를 읽기 위한 것도 아니고 단순히 한줄의 코드를 덜 적기 위한 것으로밖에 보이지 않는데...
-
매일웃자•2001.01.29 19:07몰러 wrote: > 파일로부터 레코드를 읽기 위한 것도 아니고 단순히 한줄의 코드를 덜 적기 위한 것으로밖...
-
김광섭•2001.01.27 23:22매일웃자 wrote: > 질문이 좀 이상했나봅니다. > 아무도 답을 안해주셔서 이렇게 다시한번 질문 올립니다...
-
이만준•2001.01.27 21:55안녕하세요... 델파이의 문자열과 C에서 사용하는 문자열은 다릅니다... 스트링에 대한 설명은 팁 페...
-
왕초•2001.01.27 21:22님께서 정확하게 어떤 걸 구현할려고 하는지 모르겠지만 저두 예전에 님과 비슷한 걸 구현할려구 했던적...
-
- hnc
- 2001.01.27 19:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 올랭이
- 2001.01.27 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
-
김광섭•2001.01.27 23:28초보델파이어 wrote: > 안녕하세여 > 제가 어떤 프로그램을 해석하면서 제나름대로 고쳐가면서 배우고 싶...
-
-
- 궁금점
- •
- 2001.01.27 17:28
- 2 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.01.27 19:32궁금점 wrote: > 안녕하세요. > 델파이 초보입니다. 계속되는 질문만을 하는것 같아서 죄송합니다. > ...
-
궁금점•2001.01.28 08:16> 안녕하세요. > 델파이 초보입니다. 계속되는 질문만을 하는것 같아서 죄송합니다. > 전 델파이5를 사...
-
- 궁금점
- •
- 2001.01.27 15:51
- 1 COMMENTS
- /
- 0 LIKES
-
액션가면•2001.01.27 23:28안녕하세염~ 일단 SYSDBA의 패스워드는 IBConsole 프로그램 메뉴중 Server - User Security항목에서 ...
-
- 우진회
- •
- 2001.01.27 13:43
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.01.27 15:43procedure TForm1.Button1Click(Sender: TObject); var ixa, ixb, hap: Integer; begin hap := 0; ...
-
- 이쁜이
- •
- 2001.01.27 13:18
- 2 COMMENTS
- /
- 0 LIKES
-
서철기•2001.01.27 18:38TImage에 올려 놓을거면. Image1.Picture.LoadFromFile('c:bmptest.bmp'); -----------------------...
-
이쁜이•2001.01.27 20:50procedure TForm1.input1Click(Sender: TObject); var i, j, k: Integer; tempCd: String; beg...
-
- 이쁜이
- 2001.01.27 13:15
- 0 COMMENTS
- /
- 0 LIKES
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i,j: Integer; indexCd : Integer; tempCd : String; begin indexCd := ord(Key) - 96; for i := 0 to 4 do for j := 0 to 9 do if ( str_nm[i,j] = Key ) then beg...
-
- parkisu
- 2001.01.27 11:36
- 0 COMMENTS
- /
- 0 LIKES
-
- ripper-rocka
- •
- 2001.01.27 10:08
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.27 13:15저두 윈도 2000으로 서버를 변경하고 비슷한 에러로 고생한 적이 있어 하자 적습니다. NT에서는 경험하...
-
- 유도경
- 2001.01.27 08:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.01.27 05:26
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2001.01.27 05:54초보 wrote: > 안녕들 하시지요? > > 새해 복들 많이 받으세요.. > > 뭐좀 하다보니 막히는 부분이 ...
