Code:
Type TStrings = Array Of String;
Type
TStringsHelper = Helper For TStrings
Class Function Create(Const AParams : Array Of String) : TStrings; Static;
Begin
Result := AParams;
End;
End;
var s : String;
var sa := TStrings.Create(['1', '2']);
For s In sa Do
PrintLn(s);
PrintLn('-------------before');
For s in TStrings.Create(['3', '4']) Do
PrintLn(s);
PrintLn('-------------after');
Output:
1
2
-------------before
-------------after
Original issue reported on code.google.com by kazantse...@mail.ru on 29 Jul 2012 at 11:00
Original issue reported on code.google.com by
kazantse...@mail.ru
on 29 Jul 2012 at 11:00