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
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];
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];