Delphi常用数值算法源代码 procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real); var I,J:integer; SUM:real; begin For I:=1 To N do begin Sum:=B[I]; For J:=1 To I - 1 do Sum:=Sum - A[I, J] * B[J]; B[I]: =Sum; end; For I:=N DownTo 1 do begi
function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]); if (nPos>0) and (sList.Count>=
C#[托盘]Form.cs.txt public partial class Form2 : Form { // private System.ComponentModel.Container components = null; private Icon mNetTrayIcon = new Icon("Icon1.ico"); private NotifyIcon TrayIcon; private ContextMenu notifyiconMnu; public Form2() { I
DES算法加密解密控件for C Builder －－－－－－－－－ 可以将需要加密的文字加密成16进制或非16进制 的字符串；也可以反过来解密之。 －－－－－－－－－－－－－－－ 操作十分方便，只需放入本控件， 然后调用4个加解密函数即可轻松完成！ －－－－－－－－－－－－－－－－－ Copy this directory to bcb working directory opening des.bpk and install. Example: String x,y; x = WCDE
课程设计题目，做的比较简单procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('请输入用户名') else if edit2.Text='' then showmessage('请输入密码') else begin adoquer
library fundll; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings
U盘只读程序源码源码 DELPHI版 function InstallService(SvcName, SvcDispName, SvcFullPath: string): integer; var hSCM, hService: SC_HANDLE; sInfo: string; begin result := 0; hSCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if hSCM = 0 then begin result :=
