![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi>>资料积累
文章平均质量分 58
Rshh
这个作者很懒,什么都没留下…
展开
-
使用自定义分隔符分离字符串 解决Delphi7下TStringList.Delimiter分离无法跳过空格问题
{ 函数功能:使用自定义分隔符分离字符串并以Stringlist返回 参数说明: Source: 源字符串 Deli: 自定义分离符 StringList: 返回分离结果 } procedure SplitString(Source,Deli:string; var StringList :TStringList); var EndOfCurrentString: Int原创 2013-01-31 09:36:14 · 3313 阅读 · 0 评论 -
等待函数(界面保持响应正常)不同于Sleep
等待函数(界面保持响应正常)不同于Sleep // 自定义函数 procedure WaitTime(MSecs: integer); var FirstTickCount, Now: Longint; begin FirstTickCount := Windows.GetTickCount(); repeat Application.ProcessMessages转载 2012-11-24 16:45:44 · 899 阅读 · 0 评论 -
break , continue , exit 的区别
1. break 跳出当前循环体 2. continue 从此位置直接跳出当前循环(次)代码,跳至循环开始处继续执行循环 3. exit 退出当前模块(过程、函数) EG: 1. break function GetI: Integer; begin Result := StrToInt(Form1.Edit1.text); end; procedur原创 2012-11-28 10:44:47 · 837 阅读 · 0 评论 -
Delphi - WebBrowser载入自定义HTML内容并显示
use Winapi.ActiveX; //调用IPersistStreamInit类 procedure TForm1.Button2Click(Sender: TObject); var PostList: TStringList; Response, StrStream: TStringStream; ResultString: string;原创 2013-05-09 15:17:04 · 5977 阅读 · 0 评论 -
Delphi Idhttp的 Get 和 Post 方法
Delphi Idhttp的 Get 和 Post 方法 procedure TForm1.FormCreate(Sender: TObject); var Param: TStringList; RStream: TStringStream; begin Param := TStringList.Create; RStream := TStringStream.Cre转载 2013-05-09 15:25:58 · 2982 阅读 · 0 评论 -
Delphi XE(Indy10)TIdBytes转AnsiString的实现
TIdBytes 类型引用自单元 IdGlobal; 其原型定义为 TIdBytes = array of Byte; 转换函数如下:经过测试多次发送后在字符串尾部不会出现乱码或多余字符 function IdBytesToAnsiString(ParamBytes: TIdBytes): AnsiString; var i: Integer; S: Ansi原创 2013-07-18 11:45:13 · 8427 阅读 · 0 评论 -
等待函数(保持界面正常响应)
取自网络 //延时函数,msec 为毫秒 procedure Delay(msec: single); var FirstTickCount: real; begin if msec > 0 then begin FirstTickCount := GetTickCount(); FirstTickCount := FirstTickCount转载 2015-01-05 17:17:28 · 3505 阅读 · 0 评论