[BlueLeaf1336]> PROGRAM> Natural Born Junk>
| history | TOP |
2002/10/27:作成
| memo | TOP |
いくつかのTipsで使用しているFormのメンバメソッド。
| code | TOP |
(*
=================================================
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;
| EOF | TOP |