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.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です