LeftStr (所在单元：StrUtils) 功能说明：返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。 参考实例： var S, A: String; begi...
博主一直以为Delphi中没有分割字符串的函数，在此之前曾经自己写过一个SplitStrings，一直使用至今，但在一次翻阅Delphi帮助时，无意中在Classes单元中发现Delphi本身就有分割字符串的函数...
其中的utf8是一种常用的unicode编码方式,在目前的网络环境中应用最广,特别是在java,xml这种国际化很强的地方.delphi并不支持原生的utf8字符串,它对unicode的支持则是非常好了.将普通字符串...
//delphi截取字符串 function GetStr(StrSource,StrBegin,StrEnd:string):string; var in_star,in_end:integer; strtmp:string; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); strtmp:=copy(strsource,in_star,length(strsource)); in_...
Insert 功能说明：插入一个字符(串)。该函数有三个参数。第一个参数为要插入的字符(串)，第二个参数为被插入字符串(源字符串)，第三个参数为从何处插入。 参考实例： var S: String;...
function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为 是（真） Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not Vaule[i] i...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class (TForm) Memo1: TMemo; Button1: TButton; Edit1: TEdit; procedure Form...
由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。 代码如下： view plaincopy to clipboardprint? //判断...
//Project1========================================================================== //调用窗体 Begin unit CMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, utchil...
这是DLL的代码 library MyDll; uses SysUtils, Dialogs, Classes; procedure ShowInfo(info:PChar);stdcall; begin ShowMessage('您选择了【'+info+'】'); end; function GetCaption:Pchar; begin Result := '中国'; end; exports ShowInfo, Get...