Q&A
- Count - 1이 마지막 데이터를 가리키는 이유?
다음은 제가 작성한 간단한 stack프로그램입니다.
입력순서중 마지막 입력데이트를 추출하는 프로그램인데...."count-1"이 왜 마지막데이터를 가르키게 되는지 그 원리가 궁금합니다.별거 아닌것 같기두 한데 모르니까 영 답답하네여....
소스중에 표시해놨습니다.
unit stack;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TStack = Class
top:1..100;
stk:array[1..100] of integer;
procedure push(i:integer);
function pop:integer;
constructor create;
end;
var
Form1: TForm1;
stack1:tstack;
implementation
{$R *.DFM}
constructor tstack.create;
begin
inherited create;
top:=1;
end;
procedure tstack.push(i:integer);
begin
if top < 100 then begin
stk[top]:=i;
inc(top);
end;
end;
function tstack.pop : integer ;
begin
if top >1 then begin
dec(top);
result:=stk[top];
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
stack1:=tstack.create;
edit1.text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
stack1.push(strtoint(edit1.text));
listbox1.items.add(edit1.text);
edit1.clear;
edit1.setfocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox1.items.count < 1 then
exit;
=========>요녀석입니다. listbox1.items.delete(listbox1.items.count-1);
listbox2.items.add(inttostr(stack1.pop));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
stack1.free;
end;
end.
제발 자세한 답변부탁드립니다.
입력순서중 마지막 입력데이트를 추출하는 프로그램인데...."count-1"이 왜 마지막데이터를 가르키게 되는지 그 원리가 궁금합니다.별거 아닌것 같기두 한데 모르니까 영 답답하네여....
소스중에 표시해놨습니다.
unit stack;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TStack = Class
top:1..100;
stk:array[1..100] of integer;
procedure push(i:integer);
function pop:integer;
constructor create;
end;
var
Form1: TForm1;
stack1:tstack;
implementation
{$R *.DFM}
constructor tstack.create;
begin
inherited create;
top:=1;
end;
procedure tstack.push(i:integer);
begin
if top < 100 then begin
stk[top]:=i;
inc(top);
end;
end;
function tstack.pop : integer ;
begin
if top >1 then begin
dec(top);
result:=stk[top];
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
stack1:=tstack.create;
edit1.text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
stack1.push(strtoint(edit1.text));
listbox1.items.add(edit1.text);
edit1.clear;
edit1.setfocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox1.items.count < 1 then
exit;
=========>요녀석입니다. listbox1.items.delete(listbox1.items.count-1);
listbox2.items.add(inttostr(stack1.pop));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
stack1.free;
end;
end.
제발 자세한 답변부탁드립니다.
(NOTICE) You must be logged in to comment on this post.
-
- 김동수
- •
- 2001.03.12 11:34
- 2 COMMENTS
- /
- 0 LIKES
다음은 제가 작성한 간단한 stack프로그램입니다. 입력순서중 마지막 입력데이트를 추출하는 프로그램인데...."count-1"이 왜 마지막데이터를 가르키게 되는지 그 원리가 궁금합니다.별거 아닌것 같기두 한데 모르니까 영 답답하네여.... ...-
최용일•2001.03.12 11:35안녕하세요. 최용일입니다. 님이 만드신 스택배열은 인덱스가 1부터 시작하죠? 그런데 TListBox.Items배... -
김동수•2001.03.10 20:57감사함다. 저두 빨리 리플달아줄 실력이 되었음 좋겠네여...
-
- 바보감자
- 2001.03.10 20:09
- 0 COMMENTS
- /
- 0 LIKES
-
- dol
- •
- 2001.03.10 19:53
- 3 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.10 20:09뭔가 그림을 그리던가 다른 그림을 Assign하시던가 해야죠... procedure TForm1.bbSaveAsClick(Sender: ...
-
dol•2001.03.11 00:04도움감사하고요.. 그런데 assign을 할때 안에 들어갈 이미지를 어떻게 설정을 해야 하는거죠? 예를들어...
-
kylix•2001.03.11 00:58그런 경우라면 Assign할필요가 없네요.. SaveToFile메소드를 쓰세요... procedure TForm1.bbSaveAsClick...
-
- 지풍
- •
- 2001.03.11 04:12
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.10 20:17안녕하세요. 최용일입니다. TListItem.Checked로 판별해서 TListItem.Assign으로 복사해주시면 됩니다. ...
-
지풍•2001.03.10 20:29최용일 wrote: > 안녕하세요. 최용일입니다. > > TListItem.Checked로 판별해서 TListItem.Assign으로 ...
-
- 오승섭
- 2001.03.10 19:41
- 0 COMMENTS
- /
- 0 LIKES
-
- [슬픈비]
- •
- 2001.03.10 19:40
- 2 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.10 20:13[슬픈비] wrote: > > 안녕하세요. > > 다름이 아니라.. 요즘.. 검사가 장난 아니잖아요. > 그래...
-
[슬픈비]•2001.03.10 23:10바보감자 wrote: > [슬픈비] wrote: > > > > 안녕하세요. > > > > 다름이 아니라.. 요즘.. 검사가...
-
- 초보델
- 2001.03.10 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 정병화
- •
- 2001.03.10 18:43
- 2 COMMENTS
- /
- 0 LIKES
-
윤광석•2001.03.10 18:55아래소스 델파이 help화일에 있는 예제에요... 참조하세요.. The following example copies the select...
-
정병화•2001.03.10 19:33답변 감사드립니다만, 약간 좀 이해가 안되어서... 그렇다면, DBGrid에서 선택되어진 ROWS (RECORD)들의...
-
- 델파초짜..
- •
- 2001.03.10 18:36
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.10 20:54
-
델파초짜..•2001.03.10 22:15
-
최용일•2001.03.10 22:45
-
델파초짜..•2001.03.10 23:06
-
최용일•2001.03.10 23:18
-
- 안나
- •
- 2001.03.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
-
안나•2001.03.10 19:43최석기 wrote: > 그건 콤퍼넌트 버그가 아니라 윈도우 설정 차이로 알고 있는데요.. > > 제어판에 보면...
-
- 카인
- 2001.03.10 18:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 문디
- •
- 2001.03.10 17:35
- 1 COMMENTS
- /
- 0 LIKES
-
문디•2001.03.12 11:36문디 wrote: > dll 상에서 레포트 출력을 하니 미리보기에는 결과가 나오는데 미리보기창에서 > 출력을 ...
-
- hs7606
- •
- 2001.03.10 11:53
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.10 20:14hs7606 wrote: > 네트웍에 관한 프로그램을 하나 만들었습니다. 서버와 클라이언트가 있는 프로그램입니다...
-
- 초보
- •
- 2001.03.10 08:38
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.10 23:13초보 wrote: > 안녕하세여..... > 제가 알고 싶은 것은 Access를 인스톨하지 않고 bde를 mdb에 연결하는 ...
-
- 눈길
- •
- 2001.03.12 11:30
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.12 11:30허걱~ 무슨 메뉴표시줄??? 여기에서 검색해보시라는 말이 었는데요... 쩝~ for I:=1 to 100 do T...
-
- 이영근
- •
- 2001.03.10 07:28
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.10 07:55Ord함수는 서수형을 인자로 받아들입니다. 문자열형은 안되여... 문자는 되지만... 그리고 굳이 PChar로...
-
이영근•2001.03.12 18:52kylix wrote: > Ord함수는 서수형을 인자로 받아들입니다. 문자열형은 안되여... 문자는 되지만... > >...
-
- 아이리스
- •
- 2001.03.12 11:33
- 1 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.03.12 11:33아이리스 wrote: > Band Type가 > > ------------------------ > Detail > ------------------------...
-
- 델초보...ㅠ.ㅠ
- •
- 2001.03.10 05:34
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.10 07:59이걸 말씀하시는 거죠? if DM1.MemberList.FieldByName('End_Register').AsString < StrDate then begi...
-
델초보...ㅠ.ㅠ•2001.03.10 18:43kylix wrote: > 이걸 말씀하시는 거죠? > > if DM1.MemberList.FieldByName('End_Register').AsString ...
-
- 우헤헤
- 2001.03.10 05:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 배장훈
- •
- 2001.03.10 05:15
- 1 COMMENTS
- /
- 0 LIKES
-
BENGI•2001.03.10 08:18배장훈 wrote: > DBGrid의 options 의 dgRowSelect속성이 있는데 이것을 True로 선택하고 실행을 합니다 ...
님이 만드신 스택배열은 인덱스가 1부터 시작하죠? 그런데 TListBox.Items배열은 0부터
시작합니다. 그래서 1을 빼준것입니다...
^^ 항상 즐코하세요...
김동수 wrote:
> 다음은 제가 작성한 간단한 stack프로그램입니다.
> 입력순서중 마지막 입력데이트를 추출하는 프로그램인데...."count-1"이 왜 마지막데이터를 가르키게 되는지 그 원리가 궁금합니다.별거 아닌것 같기두 한데 모르니까 영 답답하네여....
> 소스중에 표시해놨습니다.
> unit stack;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Edit1: TEdit;
> ListBox1: TListBox;
> ListBox2: TListBox;
> Button1: TButton;
> Button2: TButton;
> Label1: TLabel;
> Label2: TLabel;
> Label3: TLabel;
> procedure FormCreate(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
>
> Type
> TStack = Class
> top:1..100;
> stk:array[1..100] of integer;
> procedure push(i:integer);
> function pop:integer;
> constructor create;
> end;
> var
> Form1: TForm1;
> stack1:tstack;
> implementation
>
> {$R *.DFM}
>
> constructor tstack.create;
> begin
> inherited create;
> top:=1;
> end;
>
> procedure tstack.push(i:integer);
> begin
> if top < 100 then begin
> stk[top]:=i;
> inc(top);
> end;
> end;
>
> function tstack.pop : integer ;
> begin
> if top >1 then begin
> dec(top);
> result:=stk[top];
> end;
> end;
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> stack1:=tstack.create;
> edit1.text:='';
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> stack1.push(strtoint(edit1.text));
> listbox1.items.add(edit1.text);
> edit1.clear;
> edit1.setfocus;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> if listbox1.items.count < 1 then
> exit;
>
> =========>요녀석입니다. listbox1.items.delete(listbox1.items.count-1);
> listbox2.items.add(inttostr(stack1.pop));
> end;
>
>
>
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
> stack1.free;
> end;
>
> end.
> 제발 자세한 답변부탁드립니다.
>