Q&A
- 콤보- 왜 컴파일이 안되지요?
가르쳐주신 것을 바탕으로 맹글어봤는데 컴파일이 안되는군요.
문제의 소스를 창피하지만 공개하니 무엇이 문제인지 봐주세요.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.items(ComboBox1.itemindex) <>0 then
begin
Memo.Lines.LoadFromFile(ComboBox1.Text);
end;
end;
이곳입니다. 부탁해요.
문제의 소스를 창피하지만 공개하니 무엇이 문제인지 봐주세요.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.items(ComboBox1.itemindex) <>0 then
begin
Memo.Lines.LoadFromFile(ComboBox1.Text);
end;
end;
이곳입니다. 부탁해요.
2
COMMENTS
-
-
한 재 께서 말씀하시기를...
> 가르쳐주신 것을 바탕으로 맹글어봤는데 컴파일이 안되는군요.
> 문제의 소스를 창피하지만 공개하니 무엇이 문제인지 봐주세요.
>
> procedure TForm1.ComboBox1Change(Sender: TObject);
> begin
> if ComboBox1.items(ComboBox1.itemindex) <>0 then
> begin
> Memo.Lines.LoadFromFile(ComboBox1.Text);
> end;
> end;
>
> 이곳입니다. 부탁해요.
안녕하세요
소스에서 if문의 용도가 선택된 아이템의 인덱스가 0 이 아닐 때만을 비교하기
위한 것이라면 다음과 같이 쓰면 컴파일이 될 것 같네요....
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex <> 0 then
begin
Memo.Lines.LoadFromFile(ComboBox1.Text);
end;
end;
도움이 되길 바라며......수고하세요
(NOTICE) You must be logged in to comment on this post.
-
- 한
- 1999.06.01 09:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 최재형
- •
- 1999.06.01 08:04
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.06.02 02:39조민경 께서 말씀하시기를... > > 최재형 께서 말씀하시기를... > > 안녕하세요. > > 혼자서 고민하다...
-
-
글쎄요.•1999.06.01 19:34박형진 께서 말씀하시기를... > 프로그램과 일치하지 않는 해상도에서 실행시켰을때 해상도를 프로그램에 ...
-
-
- 이승윤
- •
- 1999.06.01 06:10
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•1999.06.01 06:26이승윤 께서 말씀하시기를... > Button1 := TButton.Create(Self); > Button1.Caption := 'Button1'; > ...
-
이승윤•1999.06.01 22:20질문에 답해 주셔서 정말로 감사합니다. 덕분에 막히 속히 훤하게 뚤린것 같습니다. 질문했던 문제가 해...
-
- 조제현
- 1999.06.01 04:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상석
- •
- 1999.06.01 04:22
- 3 COMMENTS
- /
- 0 LIKES
-
redhead•1999.06.01 04:56if DMtwt.QueryZumin.FieldByName('Juminno').asstring = Jumin.Text Then begin ...
-
이상석•1999.06.01 08:40redhead 께서 말씀하시기를... > if DMtwt.QueryZumin.FieldByName('Juminno').asstring = Jumin...
-
redhead•1999.06.01 18:40이상석 께서 말씀하시기를... > redhead 께서 말씀하시기를... > > if DMtwt.QueryZumin.FieldBy...
-
- Heaven
- •
- 1999.06.01 04:05
- 2 COMMENTS
- /
- 0 LIKES
-
redhead•1999.06.01 05:04Heaven 께서 말씀하시기를... > 안녕하세요... > > 이렇게 자주 질문을 드리는군요. > 제가 FieldEdit...
-
Heaven•1999.06.01 20:58고맙습니다. redhead님... 답변 잘 보았습니다. 해주신대로 Post를 하니 변경이 됩니다. 그런데, 에디...
-
- 박권희
- 1999.06.01 01:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 류성호
- 1999.06.01 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
-
이정욱•1999.06.01 02:32각각의 유닛에서 서로 참조하려고 해서 그런것입니다. 소스의 맨위 Uses 절을 보셔서 두개의 유닛이 서로 ...
-
-
- 배수영
- •
- 1999.05.31 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.06.01 00:34배수영 께서 말씀하시기를... > 아래는 제가 작성한 32bit dll file(omin32.dll)의 함수를 선언부분입니다...
-
- Heaven
- •
- 1999.05.31 21:14
- 2 COMMENTS
- /
- 0 LIKES
-
rambo•1999.06.01 01:19Heaven 께서 말씀하시기를... > 안녕하세요... > 항상 도움을 받는군요.. > > 다름이 아니라..Date형...
-
Heaven•1999.06.01 04:07안녕하세요. 답변해 주셔서 고맙습니다.. 문제를 해결했네요.. 그럼..
-
-
- 이현신
- •
- 1999.05.31 19:20
- 2 COMMENTS
- /
- 0 LIKES
-
글쎄요.•1999.06.01 01:30이현신 께서 말씀하시기를... > 어떤 시스템의 고유의 시리얼이나 스트링을 구할수는 없나요?.. > 하드의...
-
김영대•1999.05.31 21:05이현신 께서 말씀하시기를... > 어떤 시스템의 고유의 시리얼이나 스트링을 구할수는 없나요?.. > 하드의...
-
- 정성호
- •
- 1999.05.31 18:43
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.31 20:41정성호 께서 말씀하시기를... > 안녕하세요.. 꾸벅 ^^ > > 하나 여쭤볼게 있어서 이리 글을 올립니다....
-
- 정성호
- •
- 1999.05.31 18:42
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.31 20:43정성호 께서 말씀하시기를... > 안녕하세요...^^ 꾸벅... > > 여러가지로 부족한 점이 많아서 이리 글...
-
- 북해
- •
- 1999.05.31 18:09
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.05.31 20:17북해 께서 말씀하시기를... > 안녕하세요. Calendar의 특정날짜에 제가 원하는 그래픽을 표시해 넣고 싶은...
-
- 하명훈
- •
- 1999.05.31 15:10
- 1 COMMENTS
- /
- 0 LIKES
-
섭•1999.05.31 20:48하명훈 께서 말씀하시기를... > delphi3.0으로 db를 엑세스하는 프린트폼을 Quick Report로 만들었습니다...
-
- 한 재
- •
- 1999.05.31 14:49
- 2 COMMENTS
- /
- 0 LIKES
가르쳐주신 것을 바탕으로 맹글어봤는데 컴파일이 안되는군요. 문제의 소스를 창피하지만 공개하니 무엇이 문제인지 봐주세요. procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.items(ComboBox1.itemindex) 0 the...-
김태균•1999.05.31 18:02내용을 보니 체인지 이벤트가 일어날 때 combo의 내용에 들어 있는 파일의 이름을 불러서 메모에 내용을...
-
섭•1999.05.31 17:56한 재 께서 말씀하시기를... > 가르쳐주신 것을 바탕으로 맹글어봤는데 컴파일이 안되는군요. > 문제...
-
- 서경숙
- 1999.05.31 10:22
- 0 COMMENTS
- /
- 0 LIKES
combo의 내용에 들어 있는 파일의 이름을 불러서
메모에 내용을 입력하려고 하신것 같은데요....
일단 Combobox.Items는 Integer형이 아니고
스트링 형입니다. 따라서 0과는 비교 할 수 없겠죠.
이렇게 해보시면 될겁니다.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Items.Strings[combobox1.ItemIndex] <> '' then
begin
memo1.Lines.LoadFromFile(combobox1.Items.Strings
[combobox1.ItemIndex]) ;
end;
end;