[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