有個問題想請教？

我在表單(Form1)上設計一個button 和 一個 Edit ，想設計成每次按button ， edit 裡的數字就會每次 1


[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
i: Byte;
str: String;
begin
i := 1;
Str := IntToStr(i);
Edit1.Text := str;
Inc(i);
[/code]

上面是我寫的程式碼，請問為什麼沒辦法每次 1？ 這樣的邏輯有錯嗎？ 該怎麼寫才是正確的？

想必這是課題, 我不寫程式, 但給你一些方向
1.你在 CLICK中指定 i變數是屬於這個事件的區域變數, 每次點選 i 都是都初始化=1, 如何續加?
2.i 應該定義在 private 中
3.i 值應該 ｏｎｃｒｅａｔｅ中宣告初值
===================引 用 raiseofevil 文 章===================
有個問題想請教？

我在表單(Form1)上設計一個button 和 一個 Edit ，想設計成每次按button ， edit 裡的數字就會每次 1


[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
? i: Byte;
? str: String;
begin
? i := 1;?
? Str := IntToStr(i);
??Edit1.Text := str;
? Inc(i);
[/code]

上面是我寫的程式碼，請問為什麼沒辦法每次 1？ 這樣的邏輯有錯嗎？? 該怎麼寫才是正確的？

編輯記錄

善用中斷與F8功能，可讓您了解程式跑的流程與當下各參數的值，這種簡短程式碼用這方式最好除錯了^^

先點中斷點，然後執行程式，然後再用F8功能鍵一行一行讓程式跑。

------
今天的事，留到後天再說....

[code delphi]
private
i:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(i);
Edit1.Text :=IntToStr(i);
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !