paxScript Demo. Using Imported Classes.


paxBasic

Imports Classes

Dim I, L = New TList()

L.Add(2)
L.Add(New TObject())
L.Add(5)
L.Add(7)

For I = 0 to L.Count - 1
  print L(I)
Next

Dim SL = New TStringList()

With SL
  Add("abc")
  Add("pqr")
  Add("xyx")
End With

For I = 0 to SL.Count - 1
  print SL(I)
Next

paxC

using Classes;

var L = new TList();

L.Add(2);
L.Add(new TObject());
L.Add(5);
L.Add(7);

for (var I = 0; I < L.Count; I++)
  print L[I];

var SL = new TStringList();

with (SL) {
  Add("abc");
  Add("pqr");
  Add("xyx");
}

for (var I = 0; I < SL.Count; I++)
  print SL[I];

paxPascal

uses
  Classes;
  
var
  I, L = TList.Create;

L.Add(2);
L.Add(TObject.Create);
L.Add(5);
L.Add(7);

for I:=0 to L.Count - 1 do
  print L[I];
  
var
  SL = TStringList.Create;

with SL do
begin
  Add('abc');
  Add('pqr');
  Add('xyx');
end;

for I:=0 to SL.Count - 1 do
  print SL[I];


Copyright © 1999-2006 VIRT Laboratory. All rights reserved.