procedure GetTableNames(const ACatalogName, ASchemaName, APattern: string; AList: TStrings; AScopes: TFDPhysObjectScopes = [osMy]; AKinds: TFDPhysTableKinds = [tkSynonym, tkTable, tkView]; AFullName: Boolean = True);FDCon_Excel.GetTableNam
{$APPTYPE CONSOLE}uses SysUtils, ActiveX, ComObj, Variants;procedure GetWin32_VideoControllerInfo;const WbemUser =''; WbemPassword =''; WbemComputer ='localhost'; wbemFlagForwardOnly = $00000020;v
DELPHI代码测试素数我们已经看到了用于测试给定整数是否为质数的代码：function IsPrime(x: Integer): Integer;var i, q: integer;begin if (x <= 1) then begin Exit(0); end; q := Floor(Sqrt(x)); for i := 2 to q do begin if (x mod i = 0) then begin Exit(0); end; end
用百分比比较两个字符串(彼此之间有多少相似度)返回 byte 类型，从 0 到 100%function CompareStringsInPercent(Str1, Str2: string ): Byte;type TLink = array [0..1] of Byte;var tmpPattern: TLink; PatternA, PatternB: array of TLink; IndexA, IndexB, LengthStr: Integer;begin Resul
procedure TForm1.Button1Click(Sender: TObject);var I : integer; aa : TByteDynArray; bb : string;begin setlength(aa,10); for I := 0 to 9 do aa[I] := byte('a'); bb := string(aa); showmessage(bb);end;
procedure TForm1.Button1Click(Sender: TObject);vari:integer;begini:=0;repeat i:=i+1; memo1.Lines.Add(IntToStr(i));until i=10;end;procedure TForm1.Button1Click(Sender: TObject);vari:integer;begini:=10;repeat i:=i-1; memo1.Lines.Add(IntToStr(i));until
uses jpeg,EncdDecd;function Base64StringToJpeg(ImgStr:string):TJPEGImage;var ss:TStringStream; ms:TMemoryStream; jpg:TJPEGImage;begin try ss := TStringStream.Create(imgStr); ms := TMemoryStream.Create; DecodeStream(ss,ms);//将base64字符流还原为内
先在窗体上放ImageList关联到cxDBTreeList，在cxDBTreeList的GetNodeImageIndex事件中写如下：procedure cxDBTreeList1GetNodeImageIndex(Sender:TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:TcxTreeListImageIndexType; var AIndex: TImageIndex);vari :Integer;begin//给树结点加上图标fo