simpledatatype.dpr.bak

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

Program SimpleDataType;

{$APPTYPE CONSOLE}

uses
  System,
  Borland.Delphi.Classes,
  Borland.Delphi.SysUtils;

//var
//  aObject : TObject;
//  iValue : Integer;
//  ard : Random;
//  aObj : _TClass;
begin
{
  ard := Random.Create;
  aObject := TObject.Create;
  Console.WriteLine(aObject.ToString());
  iValue := Convert.ToInt32(ard.NextDouble() * 100000);
  aObject := TObject(iValue);
  Console.WriteLine(aObject.ToString());
  iValue := Convert.ToInt32(aObject) + 9999;
  Console.WriteLine(iValue.ToString());

  aObject := TObject(2003);
  Console.WriteLine(aObject.ToString());
}
//  aObj := _TClass.Create;
//  Console.WriteLine(aObj.ToString());
Console.WriteLine('System.Object');
Console.WriteLine('75451');
Console.WriteLine('85450');
end.