2013年6月18日

Delphi程序流程二(for)

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TFor... 阅读全文

posted @ 2013-06-18 15:04 shellcode 阅读(160) 评论(0) 推荐(0) 编辑

dlephi程序流程一(if then)

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) stredit: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure streditKeyPress(Sen... 阅读全文

posted @ 2013-06-18 12:18 shellcode 阅读(253) 评论(0) 推荐(0) 编辑

导航