***小弟这段代码为什么会内存一直增加啊?急啊!!!!!!*****

Question

procedure TShowForm.Timer3Timer(Sender: TObject);
var
  TmpStr:string;
  Sparams:TStringList;
  Response: TStringStream;
  str:string;
  num:integer;
  strnew:string;
  resultstr:string;
  webhttp:string;
  s:string;  strname:String;
  strpassword:string;
begin
//这里是向服器发送请求
  Response := TStringStream.Create('');
  Sparams:=Tstringlist.Create;
  webhttp := editweb.Text;
  s :=Copy(webhttp,length(webhttp),1);
  if s = '/' then
  begin
    tmpstr := webhttp + 'cs/SelectNum.aspx';
  end
  else
  begin
    tmpstr := webhttp + '/cs/SelectNum.aspx';
  end;  Sparams.Add('username='+Utf8Encode(editusername.Text));
  idhttp1.Request.ContentType := 'application/x-www-form-urlencoded';
  idhttp1.Request.ContentLength:=length(sparams.Text);
  try
    try
      idhttp1.Post(tmpstr,sparams,Response);
      if idhttp1.ResponseCode = 200 then
      begin
        str := Utf8ToAnsi(Response.DataString);       //解决中文问题
      end;
    except
    end;
  finally
    response.Free;
    idhttp1.Disconnect;
  end;  if str<>editnum.Text then
  begin
    showform.Panel1.Visible := false;
    showform.Button1.Caption := '您当前有' + str + '条未读信息';
    editnum.Text := str;
    showform.Show;
  end
  else
  begin
      Application.MessageBox('密码错误，请重新输入!!!','失败',MB_OK+MB_ICONINFORMATION);
  end;
end;

Answer 1

try
  Response := TStringStream.Create(''); 
  Sparams:=Tstringlist.Create;
  ....
finally
  Response.Free;
  Sparams.Free;
end; 

Answer 2

代码太混乱,可以优化简化很多哦
  if editweb.Text[1] = '/' then
  begin
    tmpstr := editweb.Text + 'cs/SelectNum.aspx';
  end
  else
  begin
    tmpstr :=editweb.Text + '/cs/SelectNum.aspx';
  end;

Answer 3

不是editweb.text[1] = '/',而是 (length(editweb.text) > 0) and (editweb.text[length(editweb.text)] = '/')