[BlueLeaf1336]> PROGRAM> Natural Born Junk>

ShowResult

historyTOP

2002/10/27:作成

memoTOP

いくつかのTipsで使用しているFormのメンバメソッド。

codeTOP

(*
    =================================================
    TMemoなどに、メッセージを表示する。
    表示先がTListBoxになっても、
    名称が変更されても、
    メッセージの頭に、時刻をつけたくなっても変更が楽。
    =================================================
*)
procedure TForm1.ShowResult(msg: string);
begin
//    Memo1.Lines.Add(msg);
    Memo1.Lines.Add(FormatDateTime('YYYY/MM/DD HH:NN:SS', Now) + '>>'+ msg);
end;

EOFTOP

*06/23/2005 13:29:33
*BlueLeaf1336-PROGRAM-2003_0005 :: ShowResult
*<a target="link" href="http://blueleaf1336.g2.xrea.com/program/2003_0005.html">BlueLeaf1336-PROGRAM-2003_0005 :: ShowResult</a>