<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;

 

                    
                
                
            
        
浙公网安备 33010602011771号