list - 附加列表以显示在 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))