fork download
  1. program ideone;
  2.  
  3. {$MODE DELPHI}{$LONGSTRINGS ON}
  4.  
  5. uses
  6. FGL;
  7. var
  8. List: TFPGList<Integer>;
  9. Item: Integer;
  10. begin
  11. List := TFPGList<Integer>.Create();
  12. try
  13. List.Add(2);
  14. List.Add(4);
  15. List.Add(8);
  16.  
  17. for Item in List do
  18. Write(Item:3);
  19. finally
  20. List.Free();
  21. end;
  22. end.
Success #stdin #stdout 0s 660KB
stdin
Standard input is empty
stdout
  2  4  8