//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...
v 比如像用户登陆后的用户名(UserName)... 其实这个问题很简单。下面我把我的做法写出来大家一起分享。 把共享的变量放在主程序里:UserName,....等等, 在主程序里写两个函数 Function CurUs...
最近在公司写一个外壳程序,调用DLL插件把FORM嵌入到EXE中的一个PANEL中,其中遇到了不少的问题,大部分已经解决,还有几个至今没有找到解决方法,有待研究,也希望知道解决方法的富翁共享...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Butto...