测试用的TestDll.Dll源代码(它将被注入到prjzzhost.exe中去): 程序代码 library TestDll; uses SysUtils, System, windows, Classes; procedure Log( s : PChar);stdcall; var F : TextFile; begin assignfile(f,'Test.txt'); if fileexis...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) UsedThread: TBitBtn; NoUsedThread: TBitBtn; procedure UsedThreadClick(Sender: TObje...
以前一直是自已写函数处理，没想到Delphi有一个自带的。 ExtractStrings：用指定的分割符分割一个字符串为多个子字符串 给你一个例子 var S:string; SL:TStringList; begin S:='123,456,789'; SL:=TStrin...
unitUnit1; interface uses Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants, System.Classes,Vcl.Graphics, Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,IdBaseComponent, IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,Web.HTTPA...
如果你用XE3以上版本的Delphi,可以用下面的方式来分隔两个标签中的字符串。QString同时提供了一个类似的函数叫做StrBetweenW，但不同的是只取首个标签内的内容。 var var_sText1:string; var_p...
// 字串转成字型样式 Function StringToStyle(s:String):TFontStyles; var ft:TFontStyles; begin if pos('B',s) 0 then ft := ft + [fsBold]; if pos('I',s) 0 then ft := ft + [fsItalic]; if pos('U',s) 0 then ft := ft + [fsUnderline]; if pos(...
介绍：下面是判断字符是否是数字的几个办法 1：通过每个字符的ansi码是多少来判断 functionIsNumber(aVal:string):Boolean; var i:Integer; begin Result:=True; fori:=1toLength(aVal)do begin if(Word(aVal)57)or(Word(...
如果没有文件的头信息，那么需要直接通过字符串进行判断，代码通过IsUTF8String这个函数进行判断，最终得出结果。 所有的代码 procedure TForm1.Button1Click(Sender: TObject); var mstream: TMemorySt...
//1，函数代码 { 判断字符串是否包含汉字 // judgeStr：要判断的字符串 //posInt：第一个汉字位置 } function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean; var p: PWideChar; // 要判断的字符...
介绍：下面是判断字符是否是数字的几个办法 1：通过每个字符的ansi码是多少来判断 functionIsNumber(aVal:string):Boolean; var i:Integer; begin Result:=True; fori:=1toLength(aVal)do begin if(Word(aVal)57)or(Word(...