摘要： private function Readxxx:Integer;static;public class property XXX:Integer read ReadXXx;Txxx =recordclass procedure test;Static;end 閱讀全文

摘要： 1、類型常量是什么？與常量、變量有什么區(qū)別？const x=5; //常量{$J+}//允許對變量賦值const y:Integer=5;//類型常量{$J-} Delphi7下@x查看地址會提示：Variable required @y則正常浪費好多時間，沒測試完全，下面全是猜的，x做為資源編譯進... 閱讀全文

摘要： using System;using System.Diagnostics;using System.Runtime.InteropServices;using System.Text; namespace Text{ public class Program { [Dll... 閱讀全文

摘要： procedure TForm3.FormCreate(Sender: TObject);type AnsiStringForPage = type AnsiString(950);//代碼頁var AnsiStr: AnsiStringForPage; i: Integer; functi... 閱讀全文

摘要： 今天群里有人問函數(shù)使用問題，我就自己測試一下，順便學習一下。uses math;procedure TForm2.Button1Click(Sender: TObject);type TTArrayByte= array of Byte;var FSource: PAnsiChar; FArr... 閱讀全文

摘要： function _PCharLen(P: _PAnsiChr): Longint;{$IFNDEF LEGACY_PCHARLEN}begin Result := 0; if P nil then while P[Result] #0 do Inc(Result);end;喜歡理由：簡潔如果是... 閱讀全文

摘要： unit Unit1;{$DEFINE USESGUIDHELP}interfaceimplementation{$IFDEF USESGUIDHELP}uses System.SysUtils;{$ENDIF}procedure test;var a:TGUID;//System單元begin ... 閱讀全文

摘要： unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 閱讀全文

摘要： procedure TForm2.Button1Click(Sender: TObject);var pDateTime:TDateTime;begin FormatSettings.DateSeparator:='-'; //System.SysUtils; //System.SysUtils.F... 閱讀全文

摘要： uses System.TypInfo; // Sync with compiler internals TTypeKind = (tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMe... 閱讀全文