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-2008
VIRT Laboratory. All rights reserved.