28 lines
501 B
ObjectPascal
28 lines
501 B
ObjectPascal
unit Utest;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, Menus, ExtCtrls,
|
|
UDessin, UDessinComposant,UFonctions, UInit,UEdit;
|
|
|
|
procedure test(v:variant);
|
|
procedure test2(v:variant);
|
|
|
|
implementation
|
|
|
|
uses Unit1;
|
|
|
|
procedure test(v:variant);
|
|
begin
|
|
form1.Memo1.Lines.Add(FormatDateTime('ss,zzz',now)+' '+VarTostr(v));
|
|
end;
|
|
|
|
procedure test2(v:variant);
|
|
begin
|
|
// form1.Memo1.Lines.Add(FormatDateTime('ss,zzz',now)+' '+VarTostr(v));
|
|
end;
|
|
|
|
end.
|