[Delphi]定数

 

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

//他のユニットでも有効な定数の宣言
const
    c_zei = 0.1;


implementation

{$R *.dfm}

//このユニット内のみで有効な定数の宣言
const
    c_per = '%';

procedure TForm1.Button1Click(Sender: TObject);

//フォーム上に TMemo / TButton を各2個配置します

begin
    Memo1.Clear;
    Memo1.Lines.Add(FloatToStr(c_zei * 100) + c_per);
end;

procedure TForm1.Button2Click(Sender: TObject);
//この手続き(procedure)内のみで有効な定数の宣言
const
    c_zei = 0.08;
begin
    Memo2.Clear;
    Memo2.Lines.Add(FloatToStr(c_zei * 100) + c_per);
end;

end.

このようになります。上が Memo1、下がMemo2です

delphi-teisuu