uclassdemo.pas

来自「多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术」· PAS 代码 · 共 36 行

unit uClassDemo;

interface

uses SysUtils;

type
  TClass1 = class(TObject)
    class Procedure Foo;
    class Function Foo1 : String;
    class Function GetTickTime : String;
  end;

implementation

uses fMain;

{ TClass1 }

class procedure TClass1.Foo;
begin
  Form1.AppMsg('Foo is Called! at : ' + Self.GetTickTime);
end;

class function TClass1.Foo1: String;
begin
  Result := 'Foo1 is called!' + Self.GetTickTime;
end;

class function TClass1.GetTickTime: String;
begin
  Result := DateTimeToStr(Now);
end;

end.