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

Question

我有一个函数接收一个字符串列表，名为＆＃34; derivedSentences＆＃34;需要在文本字段中显示。

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