Chrome (programming language)

From Wikipedia, the free encyclopedia

Chrome

Developer:	RemObjects Software
Latest release:	1.5.7.351 / February 22, 2007
OS:	Common Language Infrastructure
Use:	Programming Language
License:	Commercial
Website:	Chrome Homepage

Chrome is a programming language for the Common Language Infrastructure developed by RemObjects Software. Chrome is Object Pascal based.

Compared to Delphi.NET, developed by Borland, Chrome does not emphasize total backward compatibility.

RemObjects Software offers full integration into Visual Studio 2003/2005. There is no stand-alone Chrome IDE.

1 Features
2 Code examples
3 External links

[edit] Features

Best possible integration in the CLI
Based on Object Pascal, but with addition of many new language features.
Support for "class contracts", an assertion mechanism similar to Design by contract
Inline variable declaration.
Asynchronous Methods.
.NET 2.0 Support.
Generics (.NET 2.0 only)
Nullable Types (.NET 2.0 only)
Iterators
Partial classes (for .NET 1.1 and 2.0)
Type inference
Virtual Properties and Events
Enhanced Multicast Events
Inline variable initializers
Enhanced "for" loops
Full support for alternative frameworks from within Visual Studio (see Portable.NET and Mono development platform)

[edit] Code examples

[edit] Hello World

namespace HelloWorld;
  
interface
 
type
  HelloClass = class
  public
    class method Main; 
  end;
  
 implementation
 
class method HelloClass.Main;
begin
  System.Console.WriteLine('Hello World!');
end;
  
end.

[edit] Generic Container

namespace GenericContainer;
 
interface
 
type
  TestApp = class
  public
    class method Main;
  end;
  
  Person = class
  public
    property FirstName: String;
    property LastName: String;      
  end;        

implementation

uses 
  System.Collections.Generic;

class method TestApp.Main;
begin
  var myList := new List<Person>; //type inference
  myList.Add(new Person(FirstName := 'John', LastName := 'Doe'));  
  myList.Add(new Person(FirstName := 'Jane', LastName := 'Doe'));
  myList.Add(new Person(FirstName := 'James', LastName := 'Doe'));  
  Console.WriteLine(myList[1].FirstName);  //No casting needed
  Console.ReadLine;        
end;

end.

[edit] Generic Method

namespace GenericMethodTest;

interface

type
GenericMethodTest = static class
public
  class method Main;
private
  class method Swap<T>(var left, right : T);
  class method DoSwap<T>(left, right : T);
end;

implementation

class method GenericMethodTest.DoSwap<T>(left, right : T);
begin
  var a := left;
  var b := right;
  Console.WriteLine('Type: {0}', typeof(T));
  Console.WriteLine('-> a = {0}, b = {1}', a , b);
  Swap<T>(var a, var b);
  Console.WriteLine('-> a = {0}, b = {1}', a , b);
end;

class method GenericMethodTest.Main;
begin
  var a := 23;// type inference
  var b := 15;
  DoSwap<Integer>(a, b); // no downcasting to Object in this method.

  var aa := 'abc';// type inference
  var bb := 'def';
  DoSwap<String>(aa, bb); // no downcasting to Object in this method.

  DoSwap(1.1, 1.2); // type inference for generic parameters
  Console.ReadLine();
end;

class method GenericMethodTest.Swap<T>(var left, right : T);
begin
  var temp := left;
  left:= right;
  right := temp;
end;

end.

Program Output:

Type: System.Int32
-> a = 23, b = 15
-> a = 15, b = 23
Type: System.String
-> a = abc, b = def
-> a = def, b = abc
Type: System.Double
-> a = 1,1, b = 1,2
-> a = 1,2, b = 1,1

[edit] Enhanced Case statements

case aClassID.ToUpper of
   'XYZ': result := TMyXYZClass;
   'ABC': result := TMyOtherClass;
else raise new Exception('Invalid Class ID');
end;

case aClass type of
   TMyXYZClass: TMyXYZClass(aClass).DoSomething;
   TMyOtherClass: TMyOtherClass(aClass).DoSomethingElse;
else raise new Exception('Invalid Class Reference');
end;