Q&A
- List Index out of bounds(0).. 에러 좀 잡아주세요
컴파일을 하면 다음과 같은 에러가 한번 뜨고 실행이 됩니다.
List Index out of bounds(0)..
뭐가 문제인가요.?
procedure Twongafrm.facedit1KeyPress(Sender: TObject; var Key: Char);
var vquery:string;
begin
if key = #13 then
begin
if selectradio.ItemIndex=0 then
begin
facqry;
end
else if selectradio.ItemIndex=1 then
vquery:=
' Select bc.name from production::Basiccode bc'+
' where bc.code0=7 and bc.code2=1 and bc.code1=:vcode';
with tmpqry do
begin
Close;
SQL.Clear;
SQL.Add(vquery);
Params[0].AsString:=FacEdit1.text;
open;
FacNameEdit1.text:=FieldByname('name').AsString;
CodeEdit1.SetFocus;
end;
if FacNameEdit1.Text = '' then
begin
Messagedlg('존재하지 않는 코드입니다.',mtInformation,[mbok],0);
end;
end;
end;
여기서 문제가 생기는데... 왜그런지 좀 알려주세요..
부탁드립니다.
List Index out of bounds(0)..
뭐가 문제인가요.?
procedure Twongafrm.facedit1KeyPress(Sender: TObject; var Key: Char);
var vquery:string;
begin
if key = #13 then
begin
if selectradio.ItemIndex=0 then
begin
facqry;
end
else if selectradio.ItemIndex=1 then
vquery:=
' Select bc.name from production::Basiccode bc'+
' where bc.code0=7 and bc.code2=1 and bc.code1=:vcode';
with tmpqry do
begin
Close;
SQL.Clear;
SQL.Add(vquery);
Params[0].AsString:=FacEdit1.text;
open;
FacNameEdit1.text:=FieldByname('name').AsString;
CodeEdit1.SetFocus;
end;
if FacNameEdit1.Text = '' then
begin
Messagedlg('존재하지 않는 코드입니다.',mtInformation,[mbok],0);
end;
end;
end;
여기서 문제가 생기는데... 왜그런지 좀 알려주세요..
부탁드립니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- RyanYun
- 1999.12.18 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 설상옥
- •
- 1999.12.18 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.12.18 06:30나이렉스의 팁란에서 찾아보세요. 그리고 질문은 한군데에만 올리세요..... -.-;; 설상옥 wrote: > ...
-
- 설상옥
- •
- 1999.12.18 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.18 03:22설상옥 wrote: > 보통 실행중인 프로그램들은 Ctrl+Alt+Del키를 실행중인 프로그램의 리스트가 보이고 개...
-
- sun
- •
- 1999.12.18 02:55
- 1 COMMENTS
- /
- 0 LIKES
컴파일을 하면 다음과 같은 에러가 한번 뜨고 실행이 됩니다. List Index out of bounds(0).. 뭐가 문제인가요.? procedure Twongafrm.facedit1KeyPress(Sender: TObject; var Key: Char); var vquery:string; begin if key = #13 then be...-
박성훈•1999.12.18 03:44sun wrote: > 컴파일을 하면 다음과 같은 에러가 한번 뜨고 실행이 됩니다. > List Index out of bounds...
-
- 박준웅
- •
- 1999.12.18 02:34
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.18 02:43박준웅 wrote: > 메인폼에서 메뉴를 통해 하위폼을 불러 온 뒤 다른 하위폼을 불러오면 먼저 불러온 폼이 ...
-
- 임형호
- 1999.12.18 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤을정
- •
- 2000.08.30 10:30
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.12.18 19:59DBGrid에서 숫자 같은것에 MASK를 두려면 연결 시킨 table이나 query에서 필드 에디터에를 보면 displayf...
-
- 조민호
- •
- 1999.12.18 01:54
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.18 02:07조민호 wrote: > main.pas에서 작성한 procedure를 sub.pas에서 사용하려고 합니다. > > main.pas의 pu...
-
- 노경혁
- 1999.12.18 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.12.18 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
우경확•1999.12.18 04:29박성훈 wrote: > 파라독스,델파이3을 쓰고 있습니다. > 주문테이블의 구조는 다음과 같습니다. > > te...
-
- 알송달송
- •
- 1999.12.18 00:53
- 1 COMMENTS
- /
- 0 LIKES
-
조성우•1999.12.18 01:19알송달송 wrote: > 제가 드리려는 질문은 제목이랑 같습니다. > 디비 테이블의 내용을 텍스트 화일로 만...
-
- iliad
- 1999.12.18 00:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선주
- •
- 1999.12.17 23:12
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•1999.12.18 01:36이선주 wrote: > 아래는 제가만든 훅킹 샘플 프로그램 입니다. > > 키보드 입력이 발생하면 화면의 cap...
-
- 클릭
- •
- 1999.12.17 23:07
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.12.18 06:36클릭 wrote: > TTable컴포넌트를 사용하고 있구요,.. > 값을 insert시키려구하는데요.. > 만약 필드가 f...
-
- 클릭
- •
- 1999.12.17 21:19
- 2 COMMENTS
- /
- 0 LIKES
-
CALI•1999.12.17 23:04클릭 wrote: > 하나의 폼위에 에디트박스가 20개정도 있읍니다.. 그런데 제가 특정 버튼을 클릭하면 > ...
-
혀노•1999.12.17 22:07아래 코드를 사용하세요... for i:=1 to ComponentCount-1 do if (Components[i] is TEdit) then (Co...
-
- 송수현
- •
- 1999.12.17 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
김봉학•1999.12.17 20:53송수현 wrote: > 안녕하세요 날씨가 춥네요 눈이 오려나~ 꾸벅~! > > Edit VCL에서 스패이스를 눌렀을...
-
- 김매경
- •
- 1999.12.17 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.18 01:08김매경 wrote: > 우선..^^;; 아래 질문 답변... 너무 감사드리구여... > > 저도 실력을 쌓아서...^^;;;...
-
- 이주흥
- 1999.12.17 20:17
- 0 COMMENTS
- /
- 0 LIKES
-
- copretns
- •
- 1999.12.17 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.12.18 02:55copretns wrote: > 안녕하세요... > 컴포넌트를 좀 만들어볼려고 하는데 > 잘 안되네여... > 그래서, ...
-
- 박성훈
- 1999.12.17 18:50
- 0 COMMENTS
- /
- 0 LIKES
> 컴파일을 하면 다음과 같은 에러가 한번 뜨고 실행이 됩니다.
> List Index out of bounds(0)..
> 뭐가 문제인가요.?
> procedure Twongafrm.facedit1KeyPress(Sender: TObject; var Key: Char);
> var vquery:string;
> begin
> if key = #13 then
> begin
> if selectradio.ItemIndex=0 then
> begin
> facqry;
> end
> else if selectradio.ItemIndex=1 then
> vquery:=
> ' Select bc.name from production::Basiccode bc'+
> ' where bc.code0=7 and bc.code2=1 and bc.code1=:vcode';
> with tmpqry do
> begin
> Close;
> SQL.Clear;
> SQL.Add(vquery);
> Params[0].AsString:=FacEdit1.text;
> open;
> FacNameEdit1.text:=FieldByname('name').AsString;
> CodeEdit1.SetFocus;
> end;
> if FacNameEdit1.Text = '' then
> begin
> Messagedlg('존재하지 않는 코드입니다.',mtInformation,[mbok],0);
> end;
> end;
> end;
>
> 여기서 문제가 생기는데... 왜그런지 좀 알려주세요..
> 부탁드립니다.
>
실행 직후에 에러가 떨어지는 거라면 다른 쪽의 에러가 아닌가 싶습니다. facedit1KeyPress이벤트는 에디트박스에서 엔터키를 쳐야만 호출되니까 그 이전에 FormCreate나 Formshow,FormActive쪽에서 찾아보시죠.