Gemini Test

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