unit main;inte***ce
uses
controls, iwcontrol, iwcomplabel, dialog, iwhtmlcontrols;
type
iwlabel1: tiwlabel;
edittext: tiwedit;
butnok: tiwbutton;
iwlink1: tiwlink;
procedure butnokclick(sender: tobject);
procedure iwlink1click(sender: tobject);
public
fdialogform: tformdialog;
end;
implementation
uses
sysutils;
procedure tformmain.butnokclick(sender: tobject);
var s: string;
begin
s := trim(edittext.text);
edittext.text := '';
if s = '' then begin
end else begin
with fdialogform do begin
iwmemo1.lines.add(s);
inc(fcount);
show;
end;
end;
end;
begin
end;
procedure tformmain.iwlink1click(sender: tobject);
begin
end;
end.
MVC模式 模式的模式
mvc模式,即模型 model 檢視 view 控制器 controller 檢視是使用者看到並與之互動的介面。對老式的web應用程式來說,檢視就是由html元素組成的介面,在新式的web應用程式中,html依舊在檢視中扮演著重要的角色,但一些新的技術已層出不窮,它們包括adobe flash和像x...
設計模式 12 復合模式(模式的模式)
剩餘3個鴨子物件省略 鵝 public class goose 使用介面卡模式建立乙個會鵝叫的鴨子。public class gooseadapter iquackable public void quack quackcounter類為裝飾者 public class quackcounter i...
模式,模式的種類
有些人常常使用設計模式 design pattern 一詞來指所有直接處理軟體的架構 設計 程式實現的任何種類的模式。另外一些人則強調要劃分三種不同層次的模式 架構模式 architectural pattern 設計模式 design pattern 成例 idiom 成例有時稱為 模式 codi...