Q&A
- 코딩은 맞는거 같은데....실행하면 안되네여...
책에 있는 간단한 예제인데...안되거든여....근데 문제점을 못찾겠어여....
중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지..
프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가게 되는건데.. "가 나 다 =>가나다" 이런식으로...ㅠㅠ
procedure TForm1.Button13Click(Sender: TObject);
var
i,my_cnt:integer;
my_str,ret_str:shortstring;
begin
my_str:=copy(memo1.Text,1,length(memo1.text));
my_cnt:=1;
for i:=1 to length(memo1.Text) do
begin
if my_str[i]<>#32 then
begin
ret_str[my_cnt]:=my_str[i];
inc(my_cnt);
end;
end;
memo2.Text:=copy(ret_str,1,my_cnt-1);
end;
end.
...my_str에는 값이 들어가여....
근데 ret_str에는 값이 안들어가는거 같어여...
중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지..
프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가게 되는건데.. "가 나 다 =>가나다" 이런식으로...ㅠㅠ
procedure TForm1.Button13Click(Sender: TObject);
var
i,my_cnt:integer;
my_str,ret_str:shortstring;
begin
my_str:=copy(memo1.Text,1,length(memo1.text));
my_cnt:=1;
for i:=1 to length(memo1.Text) do
begin
if my_str[i]<>#32 then
begin
ret_str[my_cnt]:=my_str[i];
inc(my_cnt);
end;
end;
memo2.Text:=copy(ret_str,1,my_cnt-1);
end;
end.
...my_str에는 값이 들어가여....
근데 ret_str에는 값이 안들어가는거 같어여...
3
COMMENTS
-
-
우선 아래 답변하신 분의 내용이 잘못된 것이 있는데..
ShortString은 255자 까지 문자를 넣을 수 있는 문자의 배열입니다..
맨 앞의 바이트는 문자열의 길이를나타냅니다.
즉 총 256 바이트를 차지하고 있는 배열입니다.
아래의 소스는 동작하는데 문제는 없겠으나..
한 가지 의아한 점은 ret_strd의 크기가 선언이 되지 않았다는 점입니다..
ShortString의 첫 번째 바이트의 숫자가 만약 '0'라면 아무리 문자를 대입해도..
문자열의 길이는 '0', 즉 Null 문자열이 됩니다..
따라서 소스는 아래와 같이 되어야 완전한 형태라고 볼 수 있습니다..
var
i,my_cnt:integer;
my_str,ret_str:shortstring;
begin
my_str:=copy(memo1.Text,1,length(memo1.text));
my_cnt:=1;
for i:=1 to length(memo1.Text) do
begin
if my_str[i]<>#32 then
begin
ret_str[my_cnt]:=my_str[i];
inc(my_cnt);
end;
end;
ret_str[0]:= Char(my_cnt); // 문자열의 길이를 설정..
// SetLength라는 함수를 이용하는 것이 일반 String과
// 호환을 고려할 수 있으니 권장함
memo2.Text:=copy(ret_str,1,my_cnt-1);
end;
From 류..
김동수 wrote:
> 책에 있는 간단한 예제인데...안되거든여....근데 문제점을 못찾겠어여....
> 중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지..
> 프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가게 되는건데.. "가 나 다 =>가나다" 이런식으로...ㅠㅠ
> procedure TForm1.Button13Click(Sender: TObject);
> var
> i,my_cnt:integer;
> my_str,ret_str:shortstring;
> begin
> my_str:=copy(memo1.Text,1,length(memo1.text));
> my_cnt:=1;
> for i:=1 to length(memo1.Text) do
> begin
> if my_str[i]<>#32 then
> begin
> ret_str[my_cnt]:=my_str[i];
> inc(my_cnt);
> end;
> end;
> memo2.Text:=copy(ret_str,1,my_cnt-1);
>
> end;
> end.
> ...my_str에는 값이 들어가여....
> 근데 ret_str에는 값이 안들어가는거 같어여...
>
-
ret_str을 배열로 잡아야되지 않을까요?
김동수 wrote:
> 책에 있는 간단한 예제인데...안되거든여....근데 문제점을 못찾겠어여....
> 중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지..
> 프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가게 되는건데.. "가 나 다 =>가나다" 이런식으로...ㅠㅠ
> procedure TForm1.Button13Click(Sender: TObject);
> var
> i,my_cnt:integer;
> my_str,ret_str:shortstring;
> begin
> my_str:=copy(memo1.Text,1,length(memo1.text));
> my_cnt:=1;
> for i:=1 to length(memo1.Text) do
> begin
> if my_str[i]<>#32 then
> begin
> ret_str[my_cnt]:=my_str[i];
> inc(my_cnt);
> end;
> end;
> memo2.Text:=copy(ret_str,1,my_cnt-1);
>
> end;
> end.
> ...my_str에는 값이 들어가여....
> 근데 ret_str에는 값이 안들어가는거 같어여...
>
(NOTICE) You must be logged in to comment on this post.
-
- 오세종
- •
- 2001.04.01 00:18
- 1 COMMENTS
- /
- 0 LIKES
-
칠라기•2001.04.02 23:34ADO는 권장사항이 아니다고 하던데... 사람들이 그냥 편해서 쓴다고.. 그래서 다들 권하지를 않더군요.. ...
-
- 바버
- 2001.03.31 22:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 송진엽
- 2001.03.31 22:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 길근호
- 2001.03.31 21:58
- 0 COMMENTS
- /
- 0 LIKES
-
- [급]질문
- •
- 2001.03.31 21:29
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.01 02:07Edit 콤포넌트의 Text 프로퍼티의 내용을 말씀하시는 건지요? 여하튼 그렇다면 간단한 방법은.. Functi...
-
- 정원이
- 2001.03.31 21:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동수
- •
- 2001.03.31 21:15
- 3 COMMENTS
- /
- 0 LIKES
책에 있는 간단한 예제인데...안되거든여....근데 문제점을 못찾겠어여.... 중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지.. 프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가...-
감초•2001.04.01 07:31이거 작동 되는데요.. 제가 간단히 복사해서 실행결과 제대로 됩니다. 아마도 다른것때문에 에라가 났는...
-
류종택•2001.04.01 02:02우선 아래 답변하신 분의 내용이 잘못된 것이 있는데.. ShortString은 255자 까지 문자를 넣을 수 있는 문...
-
나그네•2001.04.01 00:55ret_str을 배열로 잡아야되지 않을까요? 김동수 wrote: > 책에 있는 간단한 예제인데...안되거든여.....
-
- 초롱
- 2001.03.31 20:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 초롱
- 2001.03.31 20:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2001.03.31 20:16
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2001.04.01 04:40저도 예전에 그런 궁금점이 있었는데 볼랜드 뉴스그룹에서 답변을 구했습니다. 불가능합니다. 델파이의 b...
-
최용일•2001.04.01 07:48그렇군요. 직접해보지는 않구 될거라고만 생각했었는데 님의 말씀처럼 All or Nothing이군요... 좋은 정보 ...
-
- 전유대
- 2001.03.31 19:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 감사
- •
- 2001.03.31 19:45
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.04.03 05:24감사 wrote: > 무지 급합니다...저에게 답변을 주시는 분에게 오늘 하루 행운을.... > Grid 2개가 있어요...
-
김광섭•2001.03.31 20:25감사 wrote: > 무지 급합니다...저에게 답변을 주시는 분에게 오늘 하루 행운을.... > Grid 2개가 있어요...
-
- 하늘이
- •
- 2001.03.31 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
송기현•2001.03.31 23:21저두 잘은 모르는데여 프레임은 일종의 콤포넌트데여...콤포넌트 콘테이너라구 보면 될거에여 폼에다 콤...
-
- 어린왕자
- •
- 2001.03.31 19:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.01 00:03꼭 같이 배포해야 하는 것은 아닙니다. 그건 어린왕자님 맘입니다... ㅋㅋㅋ 위에 보시면 답변있습니다....
-
- 마시마로
- •
- 2001.03.31 19:33
- 8 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.01 00:09
-
마시마로•2001.04.02 20:16
-
최용일•2001.04.02 22:02
-
마시마로•2001.04.03 00:34
-
최용일•2001.04.03 02:33
-
마시마로•2001.04.03 03:28
-
최용일•2001.04.03 09:20
- • • •
-
- 질문맨
- •
- 2001.03.31 19:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.31 23:39var Test: TTest; begin SetLength(Test.AA, 크기); SetLength(Test.BB, 크기); end; 질문맨...
-
- 델 초...
- •
- 2001.03.31 19:08
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.01 00:10안녕하세요. 최용일입니다. 그냥 간단히 Print메소드를 이용하세요... 활성화된폼.Print; ^^ 항상...
-
- 고부열
- 2001.03.31 18:28
- 0 COMMENTS
- /
- 0 LIKES
-
- [초보맨]
- •
- 2001.03.31 15:38
- 1 COMMENTS
- /
- 0 LIKES
-
쭉쭉빵빵•2001.03.31 15:53쩝 제 PC에 오피스가 없어서(요즘 좀 위험해서 지웠음) 일단은 됩니다. 그리고 MS-WORD의 매크로 기...
-
- 이성재
- •
- 2001.03.31 15:17
- 3 COMMENTS
- /
- 0 LIKES
-
쭉쭉빵빵•2001.03.31 15:22ItemIndex
-
질문다시•2001.03.31 18:15쭉쭉빵빵 wrote: > ItemIndex 제가 질문을 잘못 드린것 같습니다. 예를들어 리스트박스를 더블클릭했...
-
초보•2001.03.31 19:39첨 리스트박스에 ITEM을 추가했을때 보이지않는곳에 number를 넣으면 됩니다. 예를 들면, listbox ...
단지 ShortString이라 긴 문장을 하려면 문제가 될것입니다.
실행 예; Memo1 is not an empty box.
안녕하세요? 반갑 습니다.
실행 결과: Memo1isnotanemptybox.
안녕하세요?반갑습니다.
김동수 wrote:
> 책에 있는 간단한 예제인데...안되거든여....근데 문제점을 못찾겠어여....
> 중단점걸고 디버깅해보면 변수인 ret_str에 값이 안들어가는거 같은데...왜그런지..
> 프로그램 내용은 메모장1에 글을 쓰면 공백을 제거한 내용이 메모2에 들어가게 되는건데.. "가 나 다 =>가나다" 이런식으로...ㅠㅠ
> procedure TForm1.Button13Click(Sender: TObject);
> var
> i,my_cnt:integer;
> my_str,ret_str:shortstring;
> begin
> my_str:=copy(memo1.Text,1,length(memo1.text));
> my_cnt:=1;
> for i:=1 to length(memo1.Text) do
> begin
> if my_str[i]<>#32 then
> begin
> ret_str[my_cnt]:=my_str[i];
> inc(my_cnt);
> end;
> end;
> memo2.Text:=copy(ret_str,1,my_cnt-1);
>
> end;
> end.
> ...my_str에는 값이 들어가여....
> 근데 ret_str에는 값이 안들어가는거 같어여...
>