DELPHI开发LINUX包我们知道，有了包的存在，开发插件架构的程序，才成为可能 。DELPHI在WINDOWS里面的包的扩展名是.bpl。在LINUX里面的包的扩展名是.so。怎样在LINUX里面加载.so的包？不论加载WINDOWS的包，还是加载LINUX的包，都是使用LoadPackage()函数加载。function LoadPackage(const Name: string; AValidatePackage: TValidatePackageProc): HMODULE;{$IFDEF
lbl_Time.Caption := FormatDateTime('HH:NN:SS',now); lbl_Week.Caption := FormatDateTime('ddd',Now); if Pos('星期',lbl_Week.Caption)=0 then lbl_Week.Caption := '星期'+lbl_Week.Caption; lbl_Date.Caption := FormatDateTime(&#
DELPHI开发LINUX的动态库WINDOWS的动态库是.dll，这个大家都知道。LINUX也有动态库，扩展名是.so，现在DELPHI也能开发LINUX的动态库哦。DELPHI对LINUX的开发支持越来越强。
procedure SaveLog(const sMsg:string);var sList:TStringList; fn:string;begin sList := TStringList.Create; fn := ExtractFilePath(ParamStr(0))+'SysLog.txt'; try if FileExists(fn) then sList.LoadFromFile(fn); if sList.Count>1000 th
//如：http://www.delphitop.com/function CheckUrl(const sUrl:string):Boolean;var bl :Boolean;begin Result := False; bl := Pos('http://www.',LowerCase(sUrl))>0; bl := bl or (Pos('.delphitop.',LowerCase(sUrl))>0); if not bl then be
function GetMovieName(const fn: string): string;var i:Integer; s:string;begin s := trim(fn); if s[Length(s)]='\' then s := Copy(s,1,Length(s)-1); while Pos('\',s)>0 do begin i := Pos('\',s); s := Copy(s,i+1,Len
// uses StrUtils;function GetVirDirFromUrl(const sUrl:string):string;var str,sTemp:string;begin str := LowerCase(sUrl); if LeftStr(str,7)<>'http://' then Result := sUrl else begin str := ReplaceStr(str,'http://',''
procedure TForm1.Button2Click(Sender: TObject);var tc : TCanvas; i, j : integer; color : TColor; egcolor : TColor;begin tc := Label1.Canvas; //Label2上面必须有字，而且是黑色的 egcolor := RGB(0, 255, 0); for i := 1 to Label1.Width - 2 do for j := 1 to