テキストフィールドに表示するリストを追加する％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))