//查找是否存在 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '\d'; if reg.Match then ShowMessage('找到了') else ShowMessage('没找到'); FreeAndNil(reg); en...
program Server; {$APPTYPE CONSOLE} uses SysUtils, Winsock, Windows; type TParam=record TrdId:integer; Sckt:TSocket; end; //子线程函数 function ChildThrd(p:Pointer):LongInt;stdcall; var PkLen:integer; ThreadId:integer; ASocket:TSocket;...
网上有个朋友写的一篇30分钟正则表达式入门的东东，不错，推荐。 使用时请在uses中加入RegExpr（有现成的pas文件，你需要可以向我要） function GetName(TextToCheck:String):string; Var myExpr: TRe...
TRegExpr是正则表达式在delphi中的一个很好的实现。 是一个单独的单元，使用时直接引用即可。还自带了几个sample。 对其中的SelfTest例子加了几行注释如下： { basic tests } r := TRegExpr.Creat...
//查找是否存在 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '\d'; if reg.Match then ShowMessage('找到了') else ShowMessage('没找到'); FreeAndNil(reg); en...
Delphi 正则表达式起步 在Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info/delphi.html 直接下载: http://www.regular-expressions...
procedureTForm1.btn1Click(Sender:TObject); var Http:TIdHTTP; begin Http:=TIdHTTP.Create(nil); Http.ProxyParams.ProxyServer:='91.211.141.249';//代理IP Http.ProxyParams.ProxyPort:=8080; Http.ProxyParams.ProxyUsername:=''; Http.ProxyParams.P...
{Delphi: } function FindIds(Aid:String):Boolean; var Document :Variant; Id:Integer; begin Result := False; Document := WebBrowser.OleObject.Document.getElementsByTagName('*'); for Id := 0 to Document.Length-1 do begin if Document.item(Id).i...
function TBrowser.GetWebBrowserHTML(const WebBrowser: TWebBrowser): string;var LStream: TStringStream; Stream : IStream; LPersistStreamInit : IPersistStreamInit;begin try if not Assigned(WebBrowser.Document) then exit; LStream := TStringStr...
介绍 本文章介绍了DelphiXE7中StringGrid组件的使用FMX下的Grid类控件似乎不太尽如人意，可能是和官方的资料没有跟得上它的发行版本有关系。 以下讨论StringGrid的列表头及对齐方式。 先上...