Gemini Test

ASTPlayground/MainForm.fmx

@@ -275,4 +275,15 @@ object Form1: TForm1
     Viewport.Width = 470.000000000000000000
     Viewport.Height = 605.000000000000000000
   end
+  object SaveScriptButton: TButton
+    Anchors = [akTop, akRight]
+    Position.X = 1330.000000000000000000
+    Position.Y = 8.000000000000000000
+    Size.Width = 56.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 0
+    Text = 'Save'
+    OnClick = SaveScriptButtonClick
+  end
 end

ASTPlayground/MainForm.pas

@@ -91,6 +91,7 @@ type
         RTLListView: TListView;
         CompilerStageBox: TComboBox;
         SaveTestBtn: TButton;
+        SaveScriptButton: TButton;
         procedure InnerLambdaButtonClick(Sender: TObject);
         procedure ClearButtonClick(Sender: TObject);
         procedure CompilerStageBoxChange(Sender: TObject);
@@ -116,6 +117,7 @@ type
         procedure SaveUserLibButtonClick(Sender: TObject);
         procedure LoadUserLibButtonClick(Sender: TObject);
         procedure RTLListViewChange(Sender: TObject);
+        procedure SaveScriptButtonClick(Sender: TObject);
     private
         FCurrUnboundAst: IAstNode;
         FCurrCompiled: ILambdaExpressionNode;
@@ -138,6 +140,7 @@ type
 
 const
     UserLibName = 'T:\Myc\ASTPlayground\UserLib.json';
+    SrcName = 'T:\Myc\ASTPlayground\Script.txt';
 
 var
     Form1: TForm1;
@@ -288,10 +291,13 @@ begin
     CompilerStageBox.BringToFront;
     ClearButtonClick(Self);
 
-    //    Memo1.Lines.Add(TAstSchema.GenerateFullSystemPrompt(FEnvironment.RootScope));
+    if FileExists(SrcName) then
+        ScriptMemo.Lines.LoadFromFile(SrcName);
+
+    // Memo1.Lines.Add(TAstSchema.GenerateFullSystemPrompt(FEnvironment.RootScope));
 
     // "Dieses JSON-Objekt betest du in das Feld response_schema (Gemini) oder json_schema (OpenAI) ein."
-    Memo1.Lines.Add(TAstSchema.GenerateFullSchema.ToJSON);
+    // Memo1.Lines.Add(TAstSchema.GenerateFullSchema.ToJSON);
 end;
 
 procedure TForm1.ShowVizualization;
@@ -1284,6 +1290,11 @@ begin
     TAstDumper.Dump(FCurrCompiled, Memo1.Lines);
 end;
 
+procedure TForm1.SaveScriptButtonClick(Sender: TObject);
+begin
+    ScriptMemo.Lines.SaveToFile(SrcName);
+end;
+
 initialization
     TAst.RegisterLibrary(RegisterBroker);
 

ASTPlayground/Script.txt

@@ -0,0 +1,3 @@
+(do
+
+)