|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/10/4 21:43:18 |
标题: |
|
加入我的收藏 |
楼主: |
请问个问题啊?如果我要在edit中实现一个算法:点击一按钮,edit1中的文字变为00000000,再点则变成00000001,再加则变成00000002,以此类推,怎么才能实现这个算法,求高手帮忙啊 #~
----------------------------------------------
|
作者: |
|
2003/10/4 23:20:07 |
1楼: |
很簡單啊,下面說的夠詳細了吧,我測試過,但在調試中會出錯誤提示,可點繼續執行。或直接運行編譯後的可執行文件。
procedure TForm1.Button1Click(Sender: TObject); var i : byte; //加一串零用 begin try //試著做…… edit1.Text := inttostr(strtoint(edit1.Text)+1); //讓edit1.text等於本身的值加一 for i:= 1 to 8-length(edit1.Text) do edit1.Text := '0' + edit1.Text; //加一串零 except //如果出錯的話…… edit1.Text := '00000000'; //將edit1.text至爲初始值。 end; end;
----------------------------------------------
——混世生
|
作者: |
|
2003/10/5 9:26:04 |
2楼: |
谢谢,很精简 。我试过了,没有报错啊。 对了,为什么会想到用byte 类型 ? 如果用其它的类型是不是很难做 ?
----------------------------------------------
|
作者: |
|
2003/10/5 13:43:11 |
3楼: |
沒什麽,只是個人的習貫吧。用整型一類的都可以比如integer,word,byte等。 整型在內存中占4個字節,byte只占1字節,取值爲0..255。程序中的循環只用1..8所以用byte,爲了少占內存。哈哈,是不是有點誇張。
----------------------------------------------
——混世生
|
|