Broker example

2025-12-14 09:00:02 +01:00
parent e84ecfa2d2
commit 8beb5d95b2
2 changed files with 158 additions and 1 deletions
@@ -253,7 +253,8 @@ object Form1: TForm1
      '  ((.Buy broker) "AAPL" 10 150.0)'
      '  ((.Buy broker) "MSFT" 5 50.0)'
      '  '
-      '  ((.ListPositions broker) (fn [t] (print t)))'
+      '  ((.ListPositions broker) '
+      '      (fn [symbol amount] (print symbol ": " amount)))'
      ')')
    StyledSettings = [Size, Style, FontColor]
    TextSettings.Font.Family = 'Consolas'