Delphi Tips(1) クラス化
以前、Delphiで作成したアプリを修正しようとしたのだが、結構忘れてることに気付いた。
そこで復習もかねて、ちょっとしたソースはtipsとしてメモっていきたいと思います。
今回は、単純なサンプルを、クラスを使って書き直す例です。
◆処理内容
「コンソールに”test”を表示させて、リターンで終了」という単純なもの
◆単純なサンプル
program test001; {$APPTYPE CONSOLE} var str: string; begin str := 'test'; WriteLn(str); readLn; end.
◆手続きを利用し処理部分を分離してみる
program test002; {$APPTYPE CONSOLE} procedure msg(s: string); begin WriteLn(s); readLn; end; var str:string; begin str:='test'; msg(str); end.
◆クラスを利用して処理部分を分離してみる
program test003; {$APPTYPE CONSOLE} type TUser = class str: string; procedure msg; end; procedure TUser.msg; begin WriteLn(str); ReadLn; end; var User: TUser; begin User := TUser.Create; User.str := 'test'; User.msg; User.free; end.
◆UNIT使用してクラス部分を分離してみる
program tes004; {$APPTYPE CONSOLE} uses Unit1 in 'Unit1.pas'; var User: TUser; begin User := TUser.Create; User.str := 'test'; User.msg; User.free; end.
Unit1.pas
unit Unit1; interface type Tuser = class str: string; procedure msg; end; implementation procedure Tuser.msg; begin WriteLn(str); ReadLn; end; end.