Q&A
- string 을 char 로 바꾸는 방법은 ?
안녕들 하십니까 .
스트링의 맨 앞에 한자만 따와서 캐릭터로 바꾼후 'A'..'Z' 사이의 값인지 검사 하기 위한 것인데요,
스트링 한글자 캐릭터로 바꾸는 것이 잘 안되는 군요.
제 나름데로 이렇게 저렇게 해 봤는데 안됩니다.
도와 주십시오.
procedure TForm1.N_ListOpClClick(Sender: TObject);
Var
stQy1, st1 : String ;
Char1 : Char;
begin
....중략 ....
stQy1 := Trim(Qy1.Fields[0].AsString) ;
st1 := Copy(stQy1,1,1);
//Char1 := Copy(stQy1,1,1); //여기서 스트링, 캐릭터 안맞음 형변환 필요(?)
//if Char1 in ['A'..'Z'] then
if (st1 <> '') And (st1 <> '0') then //결국 안되서 이렇게 응급처치
ListSrc.Items.Add(stQy1) ;
Qy1.Next ;
... 중략...
end;
이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.
스트링의 맨 앞에 한자만 따와서 캐릭터로 바꾼후 'A'..'Z' 사이의 값인지 검사 하기 위한 것인데요,
스트링 한글자 캐릭터로 바꾸는 것이 잘 안되는 군요.
제 나름데로 이렇게 저렇게 해 봤는데 안됩니다.
도와 주십시오.
procedure TForm1.N_ListOpClClick(Sender: TObject);
Var
stQy1, st1 : String ;
Char1 : Char;
begin
....중략 ....
stQy1 := Trim(Qy1.Fields[0].AsString) ;
st1 := Copy(stQy1,1,1);
//Char1 := Copy(stQy1,1,1); //여기서 스트링, 캐릭터 안맞음 형변환 필요(?)
//if Char1 in ['A'..'Z'] then
if (st1 <> '') And (st1 <> '0') then //결국 안되서 이렇게 응급처치
ListSrc.Items.Add(stQy1) ;
Qy1.Next ;
... 중략...
end;
이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.
6
COMMENTS
-
-
전에 제가 char1 := stqy1[1] ; 이렇게 하면 에러 발생한다고 했는데 그이유를 밝혔습니다.
그 이유는 필드의 값에 '' 값이 있어서 입니다.
그래서 이렇게 하기로 했지요.
char1 := stqy1 + '-' ; 이 한줄을 추가 요.
kylix님 답변 정말 고맙습니다.
김석수 wrote:
> 그래도 안되는데요 .?
> 이상한 에러가 발생하는데요 ...
>
> kylix wrote:
> > Copy함수는 string형을 리턴합니다. 그러니까 타입캐스팅이 안되죠...
> >
> > 아래처럼 Char1변수값에 직접 인덱스를 이용해서 읽으세요...
> >
> > procedure TForm1.N_ListOpClClick(Sender: TObject);
> > Var
> > stQy1 : String ;
> > Char1 : Char;
> > begin
> > ....중략 ....
> >
> > stQy1 := Trim(Qy1.Fields[0].AsString);
> > Char1 := stQy[1];
> > if Char1 in ['A'..'Z'] then
> > ListSrc.Items.Add(stQy1) ;
> > Qy1.Next ;
> > ... 중략...
> > end;
> >
>
> > > 이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.
-
그래도 안되는데요 .?
이상한 에러가 발생하는데요 ...
kylix wrote:
> Copy함수는 string형을 리턴합니다. 그러니까 타입캐스팅이 안되죠...
>
> 아래처럼 Char1변수값에 직접 인덱스를 이용해서 읽으세요...
>
> procedure TForm1.N_ListOpClClick(Sender: TObject);
> Var
> stQy1 : String ;
> Char1 : Char;
> begin
> ....중략 ....
>
> stQy1 := Trim(Qy1.Fields[0].AsString);
> Char1 := stQy[1];
> if Char1 in ['A'..'Z'] then
> ListSrc.Items.Add(stQy1) ;
> Qy1.Next ;
> ... 중략...
> end;
>
> > 이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.
-
전에 제가 char1 := stqy1[1] ; 이렇게 하면 에러 발생한다고 했는데 그이유를 밝혔습니다.
그 이유는 필드의 값에 '' 값이 있어서 입니다.
그래서 이렇게 하기로 했지요.
char1 := stqy1 + '-' ; 이 한줄을 추가 요.
kylix님 답변 정말 고맙습니다.
김석수 wrote:
> 그래도 안되는데요 .?
> 이상한 에러가 발생하는데요 ...
>
> kylix wrote:
> > Copy함수는 string형을 리턴합니다. 그러니까 타입캐스팅이 안되죠...
> >
> > 아래처럼 Char1변수값에 직접 인덱스를 이용해서 읽으세요...
> >
> > procedure TForm1.N_ListOpClClick(Sender: TObject);
> > Var
> > stQy1 : String ;
> > Char1 : Char;
> > begin
> > ....중략 ....
> >
> > stQy1 := Trim(Qy1.Fields[0].AsString);
> > Char1 := stQy[1];
> > if Char1 in ['A'..'Z'] then
> > ListSrc.Items.Add(stQy1) ;
> > Qy1.Next ;
> > ... 중략...
> > end;
> >
>
> > > 이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.
-
word() 을 이용하면 될거 같습니다.
word('A') 는 아스키 값으로 65 를 리턴합니다.
-
고맙습니다.
그런 방법이 있었군요 .
그러면 word('A') 함수는 비베에서 Chr("A") 함수와 같은 거군요 .?
아무튼 고맙습니다. 덕분에 막힌 문제를 잘 해결했습니다.
'A'..'Z' 을 65..90 으로 하였습니다.
최근영 wrote:
> word() 을 이용하면 될거 같습니다.
>
> word('A') 는 아스키 값으로 65 를 리턴합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 왕초보
- 2001.03.12 01:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.03.12 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.12 01:59흠~ 비트맵파일을 열어서 처음파일에 Append하시면 되겠네요. 델파이 헬프를 찾아보세요. 델초보 wrote:...
-
델초보•2001.03.12 11:39답변 감사합니다... 도움말 찾아봐도 초보라 도통 이해가 안되네요.... 수고스럽지만 예를 들어서 설명...
-
- 아이리스
- •
- 2001.03.11 22:13
- 1 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.03.12 19:12아이리스 wrote: > Summary의 합이 레포트상에서는 제대로 나오는데 > > 출력을 하면 숫자가 다르게 나...
-
- 초버
- 2001.03.11 22:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김석수
- •
- 2001.03.11 20:42
- 6 COMMENTS
- /
- 0 LIKES
안녕들 하십니까 . 스트링의 맨 앞에 한자만 따와서 캐릭터로 바꾼후 'A'..'Z' 사이의 값인지 검사 하기 위한 것인데요, 스트링 한글자 캐릭터로 바꾸는 것이 잘 안되는 군요. 제 나름데로 이렇게 저렇게 해 봤는데 안됩니다. 도와 주십시...-
kylix•2001.03.12 01:56Copy함수는 string형을 리턴합니다. 그러니까 타입캐스팅이 안되죠... 아래처럼 Char1변수값에 직접 인...
-
김석수•2001.03.15 14:14전에 제가 char1 := stqy1[1] ; 이렇게 하면 에러 발생한다고 했는데 그이유를 밝혔습니다. 그 이유는 필...
-
김석수•2001.03.12 08:03그래도 안되는데요 .? 이상한 에러가 발생하는데요 ... kylix wrote: > Copy함수는 string형을 리턴합...
-
김석수•2001.03.15 14:13전에 제가 char1 := stqy1[1] ; 이렇게 하면 에러 발생한다고 했는데 그이유를 밝혔습니다. 그 이유는 ...
-
최근영•2001.03.12 17:54word() 을 이용하면 될거 같습니다. word('A') 는 아스키 값으로 65 를 리턴합니다.
-
김석수•2001.03.13 06:29고맙습니다. 그런 방법이 있었군요 . 그러면 word('A') 함수는 비베에서 Chr("A") 함수와 같은 거군요 .?...
-
- 솔바람
- •
- 2001.03.12 08:13
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.12 01:53RX만 쓰시는것이 아니라 TPan3D라는 컴포넌트도 쓰시는군요. 그것두 인스톨해야 합니다. TPan3D도 델파...
-
- redmouse
- •
- 2001.03.11 12:14
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.12 01:57regsvr32.exe프로그램을 이용하시거나 델파이 메뉴의 Register ActiveX Server를 이용해서 레지스터에 ...
-
redmouse•2001.03.12 05:00답변 감사함다. 지금 막 해결을 했슴당. 인터넷 익스플로러 풀버젼을 받아서 Mediaplayer부분만 압축을 해...
-
- 이혜진
- 2001.03.26 05:36
- 0 COMMENTS
- /
- 0 LIKES
-
- bean
- •
- 2001.03.11 03:14
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.11 06:47제가 알고 있기론 그러한 방법은 없는것으로 아는데요.. 함수를 통해서 억세스하는 방법밖에는... 혹시 ...
-
- jinnon
- 2001.03.11 02:47
- 0 COMMENTS
- /
- 0 LIKES
-
- bean
- •
- 2001.03.11 00:33
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.11 00:52그게 안된다면 그냥 메모장에서한것두 안될겁니다. 그건 델파이랑은 상관이 없겠는데요. 텍스트파일은 ...
-
bean•2001.03.11 03:15감사합니다. 역쉬, 다른데, 문제가 있었군요. 근디 문제가... 질문은 위쪽에 있습니다.
-
-
이명학•2001.03.12 09:49음..제가 만든다면.. 우선 압축관련 컴포넌트를 이용하던지, 압축프로그램에서 사용하는 Self-Extract F...
-
-
- 심재현
- •
- 2001.03.10 23:01
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.03.11 17:05FTP 를 이용하시는것이 나을듯 합니다. 관련자료나 Q&A 는 검색해보십시오. 바라미~ 심재현 wrote: >...
-
- 초보
- 2001.03.10 22:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 텔파이초보..
- 2001.03.10 21:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 문디
- 2001.03.10 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- 2001.03.10 20:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 보라미
- •
- 2001.03.10 20:55
- 4 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.03.10 23:33qrExpr 컴포넌트의 ResetAfterPrint 속성을 true 로 설정하면 됩니다.
-
아폴론•2001.03.10 20:56보라미 wrote: > 저의 프로그램은 다음과 같이 출력되어야 합니다. > > 이름 물품 수량 ...
-
보라미•2001.03.10 21:12바꾸어도 똑같은 값만 나오는데여... 흑흑 제발 가르쳐 주세여...
-
아폴론•2001.03.10 22:46보라미 wrote: > 바꾸어도 똑같은 값만 나오는데여... > 흑흑 제발 가르쳐 주세여... 서브토탈밴드의 ...
-
- 델공부
- 2001.03.10 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 최용일
- 2001.03.10 20:47
- 0 COMMENTS
- /
- 0 LIKES
아래처럼 Char1변수값에 직접 인덱스를 이용해서 읽으세요...
procedure TForm1.N_ListOpClClick(Sender: TObject);
Var
stQy1 : String ;
Char1 : Char;
begin
....중략 ....
stQy1 := Trim(Qy1.Fields[0].AsString);
Char1 := stQy[1];
if Char1 in ['A'..'Z'] then
ListSrc.Items.Add(stQy1) ;
Qy1.Next ;
... 중략...
end;
김석수 wrote:
> 안녕들 하십니까 .
> 스트링의 맨 앞에 한자만 따와서 캐릭터로 바꾼후 'A'..'Z' 사이의 값인지 검사 하기 위한 것인데요,
> 스트링 한글자 캐릭터로 바꾸는 것이 잘 안되는 군요.
> 제 나름데로 이렇게 저렇게 해 봤는데 안됩니다.
> 도와 주십시오.
>
> procedure TForm1.N_ListOpClClick(Sender: TObject);
> Var
> stQy1, st1 : String ;
> Char1 : Char;
> begin
> ....중략 ....
>
> stQy1 := Trim(Qy1.Fields[0].AsString) ;
> st1 := Copy(stQy1,1,1);
> //Char1 := Copy(stQy1,1,1); //여기서 스트링, 캐릭터 안맞음 형변환 필요(?)
> //if Char1 in ['A'..'Z'] then
> if (st1 <> '') And (st1 <> '0') then //결국 안되서 이렇게 응급처치
> ListSrc.Items.Add(stQy1) ;
> Qy1.Next ;
> ... 중략...
> end;
>
> 이것은 디비에 공백, 숫자, 이상한문자로 시작하는놈 빼고 결국 'A'~'Z'로 시작하는 정상적인 문자를 리스트박스에 집어넣으려고 하는 것입니다.