附加列表以显示在 Racket 的文本字段中

Question

我有一个接收字符串列表的函数，名为“derivedSentences”，需要在文本字段中显示。

(for-each (lambda (singlesentence)
          (send derivationPanelTextField set-value singlesentence)
               ) derivedSentences)

但是，就像这样，每次循环时，它只是替换之前的内容，所以只显示最后一个字符串。但我试图让它一步一步地显示出来，所以我需要在循环的每次迭代中不断地附加字符串，但无论我尝试什么都行不通。要么是错误，要么文本字段会显示为空白。

Answer 1

如果您无法从文本字段中查询文本，您仍然可以将文本累积到字符串变量中。

(let ((text ""))
  (for-each
   (lambda (singlesentence)
     (set! text (string-append text singlesentence))
     (send derivationPanelTextField set-value text))
   derivedSentences))