请问这句怎样转换成DELPHI 低版本能用? 本帖最后由 ilearn 于 2012-04-19 10:25:07 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetLength(Str, Size);在D6中也有吧,设置数据大小或字符串长度. procedure TForm1.WinHTTP1HTTPError(Sender: TObject; ErrorCode: Integer; Stream: TStream);var Str: String;begin with Stream as TMemoryStream do if OutToMemo1.Checked then begin // Output to Memo1 SetLength(Str, Size); Move(Memory^, Str[1], Size); Memo1.Text := Str; end else // Save to file begin Memo1.Text := 'Saved to c:\httptest.dat'; SaveToFile('c:\httptest.dat'); end; case ErrorCode of 404: Str := '404: Document not found'; 500: Str := '500: CGI script failed'; else // Mysterious reason Str := IntToStr(ErrorCode); end; StatusBar1.Panels[0].Text := 'HTTP Error #' + Str;end; 刚学delphi,用d7发现个问题,经常发现打开人家个源码就报错说什么什么没找到.为什么高版本的编译器反而不能兼容低版本的呢? 我创建的托盘,不知什么时候会消失了,但程序还在运行 如何知道sndPlaySound已经播放结束? 如何正确使用database控件的starttransaction功能 memo的问题,在线等待 有关COM编程,求教 如何存取服务器的目录下的文件? 怎样获得屏幕的分辨率? 在用ADO对象进行数据操作时如何处理空值?(D6) 我的程序出了个EOleException。但不知道为什么? 看看这句为什么错了 小弟想请教各位一个delphi调用DLL的问题,谢谢!
在D6中也有吧,设置数据大小或字符串长度.