<form action="LL" method="post">
  <textarea  name="comments"  placeholder="请输入细节..." rows="4" cols="50"></textarea>
    <br> 
  <input type="submit" value="提交"> 
</form>
placeholder 为 输入空的时候,显示 的 提示文本
复制代码
///LL 多行文本  <textarea  name="comments" rows="4" cols="50"></textarea>
procedure TWebModule1.WebModule1WebActionItem9Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var st: Tstringlist;
begin
   st:= Tstringlist.Create;
// st.Text  :=  Request.ContentFields.Text; //     comments=顶戴要 柘城     name=Value
 st.Text := Request.ContentFields.Values['comments']  ;
    Response.Content := st[1];
 st.Free;
end;
复制代码