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 · 3324 阅读 · 0 评论 -
等待函数(界面保持响应正常)不同于Sleep
等待函数(界面保持响应正常)不同于Sleep// 自定义函数procedure WaitTime(MSecs: integer);var FirstTickCount, Now: Longint;begin FirstTickCount := Windows.GetTickCount(); repeat Application.ProcessMessages转载 2012-11-24 16:45:44 · 905 阅读 · 0 评论 -
break , continue , exit 的区别
1. break 跳出当前循环体 2. continue 从此位置直接跳出当前循环(次)代码,跳至循环开始处继续执行循环 3. exit 退出当前模块(过程、函数) EG:1. breakfunction GetI: Integer;begin Result := StrToInt(Form1.Edit1.text);end;procedur原创 2012-11-28 10:44:47 · 842 阅读 · 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 · 6003 阅读 · 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 · 2994 阅读 · 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 · 8462 阅读 · 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 · 3513 阅读 · 0 评论